home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1990-08-25 | 18.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 21 | 52 75 6e 49 6d 61 67 65 |..... >!|RunImage|
|00000010| 0d 00 14 0e f4 20 42 79 | 20 45 6c 69 74 65 0d 00 |..... By| Elite..|
|00000020| 1e 3a f4 20 54 68 61 6e | 6b 73 20 74 6f 20 47 61 |.:. Than|ks to Ga|
|00000030| 72 79 20 46 6f 72 72 65 | 73 74 20 66 6f 72 20 74 |ry Forre|st for t|
|00000040| 68 65 20 6f 72 69 67 69 | 6e 61 6c 20 41 64 64 72 |he origi|nal Addr|
|00000050| 65 73 73 20 62 6f 6f 6b | 0d 00 28 04 0d 00 32 23 |ess book|..(...2#|
|00000060| 70 72 6f 67 74 69 74 6c | 65 24 20 3d 20 22 41 64 |progtitl|e$ = "Ad|
|00000070| 64 72 65 73 73 20 4c 61 | 62 65 6c 6c 65 72 22 0d |dress La|beller".|
|00000080| 00 3c 41 c8 99 20 22 57 | 69 6d 70 5f 49 6e 69 74 |.<A.. "W|imp_Init|
|00000090| 69 61 6c 69 73 65 22 2c | 32 30 30 2c 26 34 42 35 |ialise",|200,&4B5|
|000000a0| 33 34 31 35 34 2c 70 72 | 6f 67 74 69 74 6c 65 24 |34154,pr|ogtitle$|
|000000b0| 20 b8 20 2c 54 61 73 6b | 5f 48 61 6e 64 6c 65 25 | . ,Task|_Handle%|
|000000c0| 0d 00 46 04 0d 00 50 13 | de 20 68 69 65 72 61 72 |..F...P.|. hierar|
|000000d0| 63 68 79 20 32 30 30 0d | 00 5a 1c de 20 62 6b 20 |chy 200.|.Z.. bk |
|000000e0| 34 30 39 36 2c 69 63 6f | 6e 73 70 61 63 65 20 34 |4096,ico|nspace 4|
|000000f0| 30 39 36 0d 00 64 2b de | 20 6d 65 6e 75 73 70 61 |096..d+.| menuspa|
|00000100| 63 65 20 31 30 32 34 3a | 6d 65 6e 75 65 6e 64 3d |ce 1024:|menuend=|
|00000110| 6d 65 6e 75 73 70 61 63 | 65 2b 31 30 32 34 0d 00 |menuspac|e+1024..|
|00000120| 6e 04 0d 00 78 10 65 6e | 74 72 79 73 20 3d 20 32 |n...x.en|trys = 2|
|00000130| 30 30 0d 00 82 13 de 20 | 6e 61 6d 65 24 28 65 6e |00..... |name$(en|
|00000140| 74 72 79 73 29 0d 00 8c | 14 de 20 61 64 64 72 31 |trys)...|.. addr1|
|00000150| 24 28 65 6e 74 72 79 73 | 29 0d 00 96 14 de 20 61 |$(entrys|)..... a|
|00000160| 64 64 72 32 24 28 65 6e | 74 72 79 73 29 0d 00 a0 |ddr2$(en|trys)...|
|00000170| 14 de 20 61 64 64 72 33 | 24 28 65 6e 74 72 79 73 |.. addr3|$(entrys|
|00000180| 29 0d 00 aa 14 de 20 61 | 64 64 72 34 24 28 65 6e |)..... a|ddr4$(en|
|00000190| 74 72 79 73 29 0d 00 b4 | 13 de 20 70 6f 73 74 24 |trys)...|.. post$|
|000001a0| 28 65 6e 74 72 79 73 29 | 0d 00 be 13 de 20 74 65 |(entrys)|..... te|
|000001b0| 6c 65 24 28 65 6e 74 72 | 79 73 29 0d 00 c8 04 0d |le$(entr|ys).....|
|000001c0| 00 d2 2d de 20 69 63 6f | 6e 74 65 78 74 62 75 66 |..-. ico|ntextbuf|
|000001d0| 66 20 31 32 2c 69 63 6f | 6e 76 61 6c 69 64 62 75 |f 12,ico|nvalidbu|
|000001e0| 66 66 20 31 32 2c 6d 62 | 6b 20 32 30 0d 00 dc 22 |ff 12,mb|k 20..."|
|000001f0| de 20 73 65 61 72 63 68 | 64 61 74 61 20 32 30 3a |. search|data 20:|
|00000200| 24 73 65 61 72 63 68 64 | 61 74 61 3d 22 22 0d 00 |$searchd|ata=""..|
|00000210| e6 0f de 20 73 74 61 72 | 74 28 32 37 29 0d 00 f0 |... star|t(27)...|
|00000220| 04 0d 00 fa 09 f2 69 6e | 69 74 0d 01 04 04 0d 01 |......in|it......|
|00000230| 0e 05 f5 0d 01 18 11 20 | ee 20 85 20 ea 20 f2 65 |....... |. . . .e|
|00000240| 72 72 6f 72 0d 01 22 16 | 20 f2 61 63 74 69 6f 6e |rror..".| .action|
|00000250| 28 a4 70 6f 6c 6c 28 30 | 29 29 0d 01 2c 07 fd 20 |(.poll(0|))..,.. |
|00000260| a3 0d 01 36 05 e0 0d 01 | 40 04 0d 01 4a 0c dd 20 |...6....|@...J.. |
|00000270| f2 65 72 72 6f 72 0d 01 | 54 19 20 c8 99 20 22 48 |.error..|T. .. "H|
|00000280| 6f 75 72 67 6c 61 73 73 | 5f 53 6d 61 73 68 22 0d |ourglass|_Smash".|
|00000290| 01 5e 18 20 e7 20 9f 3d | 31 20 f2 64 72 6f 6e 67 |.^. . .=|1 .drong|
|000002a0| 6f 28 f6 24 29 3a e1 0d | 01 68 2c 20 e7 20 9f 3d |o(.$):..|.h, . .=|
|000002b0| 26 31 30 38 43 41 20 8c | 20 f2 64 72 6f 6e 67 6f |&108CA .| .drongo|
|000002c0| 28 22 50 72 6f 74 65 63 | 74 65 64 20 64 69 73 63 |("Protec|ted disc|
|000002d0| 2e 22 29 0d 01 72 46 20 | e7 20 ac 20 a4 61 73 6b |.")..rF |. . .ask|
|000002e0| 28 f6 24 2b 22 20 61 74 | 20 6c 69 6e 65 20 22 2b |(.$+" at| line "+|
|000002f0| c3 9e 2b 22 2e 20 48 65 | 79 20 44 4f 52 4b 20 64 |..+". He|y DORK d|
|00000300| 6f 20 79 6f 75 20 77 61 | 6e 74 20 74 6f 20 71 75 |o you wa|nt to qu|
|00000310| 69 74 3f 22 29 20 8c 20 | e1 0d 01 7c 0c 20 f2 66 |it?") . |...|. .f|
|00000320| 69 6e 69 73 68 0d 01 86 | 05 e1 0d 01 90 04 0d 01 |inish...|........|
|00000330| 9a 11 dd 20 a4 70 6f 6c | 6c 28 6d 61 73 6b 29 0d |... .pol|l(mask).|
|00000340| 01 a4 08 20 ea 20 61 0d | 01 ae 0e 20 62 6b 21 30 |... . a.|... bk!0|
|00000350| 3d 6d 61 73 6b 0d 01 b8 | 1c 20 c8 99 20 22 57 69 |=mask...|. .. "Wi|
|00000360| 6d 70 5f 50 6f 6c 6c 22 | 2c 30 2c 62 6b 20 b8 20 |mp_Poll"|,0,bk . |
|00000370| 61 0d 01 c2 06 3d 61 0d | 01 cc 04 0d 01 d6 13 dd |a....=a.|........|
|00000380| 20 f2 61 63 74 69 6f 6e | 28 65 76 6e 74 29 0d 01 | .action|(evnt)..|
|00000390| e0 0e 20 c8 8e 20 65 76 | 6e 74 20 ca 0d 01 ea 1a |.. .. ev|nt .....|
|000003a0| 20 20 c9 20 4e 75 6c 6c | 5f 52 65 61 73 6f 6e 5f | . Null|_Reason_|
|000003b0| 43 6f 64 65 20 3a 0d 01 | f4 04 0d 01 fe 33 20 20 |Code :..|.....3 |
|000003c0| c9 20 4f 70 65 6e 5f 57 | 69 6e 64 6f 77 5f 52 65 |. Open_W|indow_Re|
|000003d0| 71 75 65 73 74 20 20 20 | 3a 20 f2 6f 70 65 6e 77 |quest |: .openw|
|000003e0| 69 6e 64 6f 77 28 62 6b | 21 30 2c b9 29 0d 02 08 |indow(bk|!0,.)...|
|000003f0| 32 20 20 c9 20 43 6c 6f | 73 65 5f 57 69 6e 64 6f |2 . Clo|se_Windo|
|00000400| 77 5f 52 65 71 75 65 73 | 74 20 20 3a 20 f2 63 6c |w_Reques|t : .cl|
|00000410| 6f 73 65 77 69 6e 64 6f | 77 28 62 6b 21 30 29 0d |osewindo|w(bk!0).|
|00000420| 02 12 30 20 20 c9 20 4d | 6f 75 73 65 5f 42 75 74 |..0 . M|ouse_But|
|00000430| 74 6f 6e 5f 43 68 61 6e | 67 65 20 20 20 3a 20 f2 |ton_Chan|ge : .|
|00000440| 6d 6f 75 73 65 63 68 61 | 6e 67 65 28 62 6b 29 0d |mousecha|nge(bk).|
|00000450| 02 1c 29 20 20 c9 20 55 | 73 65 72 5f 44 72 61 67 |..) . U|ser_Drag|
|00000460| 5f 42 6f 78 20 20 20 20 | 20 20 20 20 20 3a 20 f2 |_Box | : .|
|00000470| 75 73 65 72 64 72 61 67 | 0d 02 26 3c 20 20 c9 20 |userdrag|..&< . |
|00000480| 4b 65 79 5f 50 72 65 73 | 73 65 64 20 20 20 20 20 |Key_Pres|sed |
|00000490| 20 20 20 20 20 20 3a 20 | f2 6b 65 79 70 72 65 73 | : |.keypres|
|000004a0| 73 65 64 28 62 6b 21 30 | 2c 62 6b 21 34 2c 62 6b |sed(bk!0|,bk!4,bk|
|000004b0| 21 32 34 29 0d 02 30 2f | 20 20 c9 20 4d 65 6e 75 |!24)..0/| . Menu|
|000004c0| 5f 53 65 6c 65 63 74 20 | 20 20 20 20 20 20 20 20 |_Select | |
|000004d0| 20 20 3a 20 f2 6d 65 6e | 75 73 65 6c 65 63 74 28 | : .men|uselect(|
|000004e0| 62 6b 29 0d 02 3a 2f 20 | 20 c9 20 55 73 65 72 5f |bk)..:/ | . User_|
|000004f0| 4d 65 73 73 61 67 65 20 | 20 20 20 20 20 20 20 20 |Message | |
|00000500| 20 3a 20 f2 72 65 63 65 | 69 76 65 6d 65 73 73 61 | : .rece|ivemessa|
|00000510| 67 65 0d 02 44 2f 20 20 | c9 20 55 73 65 72 5f 4d |ge..D/ |. User_M|
|00000520| 65 73 73 61 67 65 5f 52 | 65 63 6f 72 64 65 64 20 |essage_R|ecorded |
|00000530| 3a 20 f2 72 65 63 65 69 | 76 65 6d 65 73 73 61 67 |: .recei|vemessag|
|00000540| 65 0d 02 4e 06 20 cb 0d | 02 58 05 e1 0d 02 62 04 |e..N. ..|.X....b.|
|00000550| 0d 02 6c 16 dd 20 f2 73 | 65 74 74 65 78 74 28 77 |..l.. .s|ettext(w|
|00000560| 2c 69 2c 61 24 29 0d 02 | 76 0d 20 62 6b 21 30 20 |,i,a$)..|v. bk!0 |
|00000570| 3d 20 77 0d 02 80 0d 20 | 62 6b 21 34 20 3d 20 69 |= w.... |bk!4 = i|
|00000580| 0d 02 8a 20 20 c8 99 20 | 22 57 69 6d 70 5f 47 65 |... .. |"Wimp_Ge|
|00000590| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 30 2c 62 6b |tIconSta|te",0,bk|
|000005a0| 0d 02 94 10 20 24 28 62 | 6b 21 32 38 29 3d 61 24 |.... $(b|k!28)=a$|
|000005b0| 0d 02 9e 0b 20 62 6b 21 | 38 3d 30 0d 02 a8 0c 20 |.... bk!|8=0.... |
|000005c0| 62 6b 21 31 32 3d 30 0d | 02 b2 20 20 c8 99 20 22 |bk!12=0.|.. .. "|
|000005d0| 57 69 6d 70 5f 53 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Set|IconStat|
|000005e0| 65 22 2c 30 2c 62 6b 0d | 02 bc 05 e1 0d 02 c6 04 |e",0,bk.|........|
|000005f0| 0d 02 d0 22 dd 20 f2 6b | 65 79 70 72 65 73 73 65 |...". .k|eypresse|
|00000600| 64 28 77 69 6e 64 6f 77 | 2c 69 63 6f 6e 2c 6b 65 |d(window|,icon,ke|
|00000610| 79 29 0d 02 da 0e 20 ea | 20 69 6e 64 65 78 2c 71 |y).... .| index,q|
|00000620| 0d 02 e4 04 0d 02 ee 0d | 20 c8 8e 20 6b 65 79 20 |........| .. key |
|00000630| ca 0d 02 f8 0c 20 20 c9 | 20 31 33 20 3a 0d 03 02 |..... .| 13 :...|
|00000640| 12 20 20 20 c8 8e 20 77 | 69 6e 64 6f 77 20 ca 0d |. .. w|indow ..|
|00000650| 03 0c 11 20 20 20 20 c9 | 20 61 64 64 72 65 73 73 |... .| address|
|00000660| 0d 03 16 12 20 20 20 20 | 20 c8 8e 20 69 63 6f 6e |.... | .. icon|
|00000670| 20 ca 0d 03 20 0f 20 20 | 20 20 20 20 c9 20 35 20 | ... . | . 5 |
|00000680| 3a 0d 03 2a 27 20 20 20 | 20 20 20 20 69 6e 64 65 |:..*' | inde|
|00000690| 78 3d a9 28 a4 69 6e 64 | 69 72 65 63 74 28 77 69 |x=.(.ind|irect(wi|
|000006a0| 6e 64 6f 77 2c 36 29 29 | 0d 03 34 33 20 20 20 20 |ndow,6))|..43 |
|000006b0| 20 20 20 f2 73 65 74 63 | 61 72 65 74 70 6f 73 69 | .setc|aretposi|
|000006c0| 74 69 6f 6e 28 77 69 6e | 64 6f 77 2c 36 2c 30 2c |tion(win|dow,6,0,|
|000006d0| 30 2c 2d 31 2c 69 6e 64 | 65 78 29 0d 03 3e 04 0d |0,-1,ind|ex)..>..|
|000006e0| 03 48 0f 20 20 20 20 20 | 20 c9 20 36 20 3a 0d 03 |.H. | . 6 :..|
|000006f0| 52 27 20 20 20 20 20 20 | 20 69 6e 64 65 78 3d a9 |R' | index=.|
|00000700| 28 a4 69 6e 64 69 72 65 | 63 74 28 77 69 6e 64 6f |(.indire|ct(windo|
|00000710| 77 2c 37 29 29 0d 03 5c | 33 20 20 20 20 20 20 20 |w,7))..\|3 |
|00000720| f2 73 65 74 63 61 72 65 | 74 70 6f 73 69 74 69 6f |.setcare|tpositio|
|00000730| 6e 28 77 69 6e 64 6f 77 | 2c 37 2c 30 2c 30 2c 2d |n(window|,7,0,0,-|
|00000740| 31 2c 69 6e 64 65 78 29 | 0d 03 66 04 0d 03 70 0f |1,index)|..f...p.|
|00000750| 20 20 20 20 20 20 c9 20 | 37 20 3a 0d 03 7a 27 20 | . |7 :..z' |
|00000760| 20 20 20 20 20 20 69 6e | 64 65 78 3d a9 28 a4 69 | in|dex=.(.i|
|00000770| 6e 64 69 72 65 63 74 28 | 77 69 6e 64 6f 77 2c 38 |ndirect(|window,8|
|00000780| 29 29 0d 03 84 33 20 20 | 20 20 20 20 20 f2 73 65 |))...3 | .se|
|00000790| 74 63 61 72 65 74 70 6f | 73 69 74 69 6f 6e 28 77 |tcaretpo|sition(w|
|000007a0| 69 6e 64 6f 77 2c 38 2c | 30 2c 30 2c 2d 31 2c 69 |indow,8,|0,0,-1,i|
|000007b0| 6e 64 65 78 29 0d 03 8e | 04 0d 03 98 0f 20 20 20 |ndex)...|..... |
|000007c0| 20 20 20 c9 20 38 20 3a | 0d 03 a2 27 20 20 20 20 | . 8 :|...' |
|000007d0| 20 20 20 69 6e 64 65 78 | 3d a9 28 a4 69 6e 64 69 | index|=.(.indi|
|000007e0| 72 65 63 74 28 77 69 6e | 64 6f 77 2c 39 29 29 0d |rect(win|dow,9)).|
|000007f0| 03 ac 33 20 20 20 20 20 | 20 20 f2 73 65 74 63 61 |..3 | .setca|
|00000800| 72 65 74 70 6f 73 69 74 | 69 6f 6e 28 77 69 6e 64 |retposit|ion(wind|
|00000810| 6f 77 2c 39 2c 30 2c 30 | 2c 2d 31 2c 69 6e 64 65 |ow,9,0,0|,-1,inde|
|00000820| 78 29 0d 03 b6 04 0d 03 | c0 0f 20 20 20 20 20 20 |x)......|.. |
|00000830| c9 20 39 20 3a 0d 03 ca | 28 20 20 20 20 20 20 20 |. 9 :...|( |
|00000840| 69 6e 64 65 78 3d a9 28 | a4 69 6e 64 69 72 65 63 |index=.(|.indirec|
|00000850| 74 28 77 69 6e 64 6f 77 | 2c 31 30 29 29 0d 03 d4 |t(window|,10))...|
|00000860| 34 20 20 20 20 20 20 20 | f2 73 65 74 63 61 72 65 |4 |.setcare|
|00000870| 74 70 6f 73 69 74 69 6f | 6e 28 77 69 6e 64 6f 77 |tpositio|n(window|
|00000880| 2c 31 30 2c 30 2c 30 2c | 2d 31 2c 69 6e 64 65 78 |,10,0,0,|-1,index|
|00000890| 29 0d 03 de 04 0d 03 e8 | 10 20 20 20 20 20 20 c9 |).......|. .|
|000008a0| 20 31 30 20 3a 0d 03 f2 | 28 20 20 20 20 20 20 20 | 10 :...|( |
|000008b0| 69 6e 64 65 78 3d a9 28 | a4 69 6e 64 69 72 65 63 |index=.(|.indirec|
|000008c0| 74 28 77 69 6e 64 6f 77 | 2c 31 31 29 29 0d 03 fc |t(window|,11))...|
|000008d0| 34 20 20 20 20 20 20 20 | f2 73 65 74 63 61 72 65 |4 |.setcare|
|000008e0| 74 70 6f 73 69 74 69 6f | 6e 28 77 69 6e 64 6f 77 |tpositio|n(window|
|000008f0| 2c 31 31 2c 30 2c 30 2c | 2d 31 2c 69 6e 64 65 78 |,11,0,0,|-1,index|
|00000900| 29 0d 04 06 04 0d 04 10 | 10 20 20 20 20 20 20 c9 |).......|. .|
|00000910| 20 31 31 20 3a 0d 04 1a | 27 20 20 20 20 20 20 20 | 11 :...|' |
|00000920| 69 6e 64 65 78 3d a9 28 | a4 69 6e 64 69 72 65 63 |index=.(|.indirec|
|00000930| 74 28 77 69 6e 64 6f 77 | 2c 35 29 29 0d 04 24 33 |t(window|,5))..$3|
|00000940| 20 20 20 20 20 20 20 f2 | 73 65 74 63 61 72 65 74 | .|setcaret|
|00000950| 70 6f 73 69 74 69 6f 6e | 28 77 69 6e 64 6f 77 2c |position|(window,|
|00000960| 35 2c 30 2c 30 2c 2d 31 | 2c 69 6e 64 65 78 29 0d |5,0,0,-1|,index).|
|00000970| 04 2e 04 0d 04 38 10 20 | 20 20 20 20 20 c9 20 31 |.....8. | . 1|
|00000980| 33 20 3a 0d 04 42 25 20 | 20 20 20 20 20 20 71 3d |3 :..B% | q=|
|00000990| bb 28 a4 69 6e 64 69 72 | 65 63 74 28 61 64 64 72 |.(.indir|ect(addr|
|000009a0| 65 73 73 2c 31 33 29 29 | 0d 04 4c 1b 20 20 20 20 |ess,13))|..L. |
|000009b0| 20 20 20 e7 20 71 3c 31 | 20 84 20 71 3e 6c 61 73 | . q<1| . q>las|
|000009c0| 74 20 8c 0d 04 56 1c 20 | 20 20 20 20 20 20 20 f2 |t ...V. | .|
|000009d0| 73 68 6f 77 72 65 63 6f | 72 64 28 70 74 72 29 0d |showreco|rd(ptr).|
|000009e0| 04 60 26 20 20 20 20 20 | 20 20 20 85 20 31 2c 22 |.`& | . 1,"|
|000009f0| 4e 6f 20 73 75 63 68 20 | 72 65 63 6f 72 64 20 44 |No such |record D|
|00000a00| 4f 52 4b 21 22 0d 04 6a | 0c 20 20 20 20 20 20 20 |ORK!"..j|. |
|00000a10| cd 0d 04 74 19 20 20 20 | 20 20 20 20 f2 73 68 6f |...t. | .sho|
|00000a20| 77 72 65 63 6f 72 64 28 | 71 29 0d 04 7e 04 0d 04 |wrecord(|q)..~...|
|00000a30| 88 0a 20 20 20 20 20 cb | 0d 04 92 08 20 20 20 cb |.. .|.... .|
|00000a40| 0d 04 9c 04 0d 04 a6 17 | 20 20 c9 20 74 61 62 2c |........| . tab,|
|00000a50| 64 6f 77 6e 61 72 72 6f | 77 20 3a 0d 04 b0 26 20 |downarro|w :...& |
|00000a60| 20 20 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 43 61 | .. "Wi|mp_GetCa|
|00000a70| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 30 2c 62 |retPosit|ion",0,b|
|00000a80| 6b 0d 04 ba 10 20 20 20 | 69 63 6f 6e 3d 62 6b 21 |k.... |icon=bk!|
|00000a90| 34 0d 04 c4 0e 20 20 20 | 69 63 6f 6e 2b 3d 31 0d |4.... |icon+=1.|
|00000aa0| 04 ce 17 20 20 20 e7 20 | 69 63 6f 6e 3d 31 32 20 |... . |icon=12 |
|00000ab0| 69 63 6f 6e 3d 35 0d 04 | d8 26 20 20 20 69 6e 64 |icon=5..|.& ind|
|00000ac0| 65 78 3d a9 28 a4 69 6e | 64 69 72 65 63 74 28 77 |ex=.(.in|direct(w|
|00000ad0| 69 6e 64 6f 77 2c 69 63 | 6f 6e 29 29 0d 04 e2 32 |indow,ic|on))...2|
|00000ae0| 20 20 20 f2 73 65 74 63 | 61 72 65 74 70 6f 73 69 | .setc|aretposi|
|00000af0| 74 69 6f 6e 28 77 69 6e | 64 6f 77 2c 69 63 6f 6e |tion(win|dow,icon|
|00000b00| 2c 30 2c 30 2c 2d 31 2c | 69 6e 64 65 78 29 0d 04 |,0,0,-1,|index)..|
|00000b10| ec 04 0d 04 f6 11 20 20 | c9 20 75 70 61 72 72 6f |...... |. uparro|
|00000b20| 77 20 3a 0d 05 00 26 20 | 20 20 c8 99 20 22 57 69 |w :...& | .. "Wi|
|00000b30| 6d 70 5f 47 65 74 43 61 | 72 65 74 50 6f 73 69 74 |mp_GetCa|retPosit|
|00000b40| 69 6f 6e 22 2c 30 2c 62 | 6b 0d 05 0a 10 20 20 20 |ion",0,b|k.... |
|00000b50| 69 63 6f 6e 3d 62 6b 21 | 34 0d 05 14 0e 20 20 20 |icon=bk!|4.... |
|00000b60| 69 63 6f 6e 2d 3d 31 0d | 05 1e 17 20 20 20 e7 20 |icon-=1.|... . |
|00000b70| 69 63 6f 6e 3d 34 20 69 | 63 6f 6e 3d 31 31 0d 05 |icon=4 i|con=11..|
|00000b80| 28 26 20 20 20 69 6e 64 | 65 78 3d a9 28 a4 69 6e |(& ind|ex=.(.in|
|00000b90| 64 69 72 65 63 74 28 77 | 69 6e 64 6f 77 2c 69 63 |direct(w|indow,ic|
|00000ba0| 6f 6e 29 29 0d 05 32 32 | 20 20 20 f2 73 65 74 63 |on))..22| .setc|
|00000bb0| 61 72 65 74 70 6f 73 69 | 74 69 6f 6e 28 77 69 6e |aretposi|tion(win|
|00000bc0| 64 6f 77 2c 69 63 6f 6e | 2c 30 2c 30 2c 2d 31 2c |dow,icon|,0,0,-1,|
|00000bd0| 69 6e 64 65 78 29 0d 05 | 3c 04 0d 05 46 09 20 20 |index)..|<...F. |
|00000be0| 7f 20 3a 0d 05 50 1f 20 | 20 20 c8 99 20 22 57 69 |. :..P. | .. "Wi|
|00000bf0| 6d 70 5f 50 72 6f 63 65 | 73 73 4b 65 79 22 2c 6b |mp_Proce|ssKey",k|
|00000c00| 65 79 0d 05 5a 06 20 cb | 0d 05 64 05 e1 0d 05 6e |ey..Z. .|..d....n|
|00000c10| 04 0d 05 78 16 dd 20 f2 | 73 68 6f 77 72 65 63 6f |...x.. .|showreco|
|00000c20| 72 64 28 72 65 63 29 0d | 05 82 09 6e 65 77 3d a3 |rd(rec).|...new=.|
|00000c30| 0d 05 8c 23 20 f2 73 65 | 74 74 65 78 74 28 61 64 |...# .se|ttext(ad|
|00000c40| 64 72 65 73 73 2c 35 2c | 6e 61 6d 65 24 28 72 65 |dress,5,|name$(re|
|00000c50| 63 29 29 0d 05 96 24 20 | f2 73 65 74 74 65 78 74 |c))...$ |.settext|
|00000c60| 28 61 64 64 72 65 73 73 | 2c 36 2c 61 64 64 72 31 |(address|,6,addr1|
|00000c70| 24 28 72 65 63 29 29 0d | 05 a0 24 20 f2 73 65 74 |$(rec)).|..$ .set|
|00000c80| 74 65 78 74 28 61 64 64 | 72 65 73 73 2c 37 2c 61 |text(add|ress,7,a|
|00000c90| 64 64 72 32 24 28 72 65 | 63 29 29 0d 05 aa 24 20 |ddr2$(re|c))...$ |
|00000ca0| f2 73 65 74 74 65 78 74 | 28 61 64 64 72 65 73 73 |.settext|(address|
|00000cb0| 2c 38 2c 61 64 64 72 33 | 24 28 72 65 63 29 29 0d |,8,addr3|$(rec)).|
|00000cc0| 05 b4 24 20 f2 73 65 74 | 74 65 78 74 28 61 64 64 |..$ .set|text(add|
|00000cd0| 72 65 73 73 2c 39 2c 61 | 64 64 72 34 24 28 72 65 |ress,9,a|ddr4$(re|
|00000ce0| 63 29 29 0d 05 be 24 20 | f2 73 65 74 74 65 78 74 |c))...$ |.settext|
|00000cf0| 28 61 64 64 72 65 73 73 | 2c 31 30 2c 70 6f 73 74 |(address|,10,post|
|00000d00| 24 28 72 65 63 29 29 0d | 05 c8 24 20 f2 73 65 74 |$(rec)).|..$ .set|
|00000d10| 74 65 78 74 28 61 64 64 | 72 65 73 73 2c 31 31 2c |text(add|ress,11,|
|00000d20| 74 65 6c 65 24 28 72 65 | 63 29 29 0d 05 d2 20 20 |tele$(re|c))... |
|00000d30| f2 73 65 74 74 65 78 74 | 28 61 64 64 72 65 73 73 |.settext|(address|
|00000d40| 2c 31 33 2c c3 28 72 65 | 63 29 29 0d 05 dc 0c 20 |,13,.(re|c)).... |
|00000d50| 70 74 72 3d 72 65 63 0d | 05 e6 05 e1 0d 05 f0 04 |ptr=rec.|........|
|00000d60| 0d 05 fa 0b dd 20 f2 69 | 6e 69 74 0d 06 04 0c 20 |..... .i|nit.... |
|00000d70| ea 20 63 6f 75 6e 74 0d | 06 0e 21 20 72 65 6d 61 |. count.|..! rema|
|00000d80| 69 6e 69 6e 67 69 63 6f | 6e 73 70 61 63 65 3d 69 |iningico|nspace=i|
|00000d90| 63 6f 6e 73 70 61 63 65 | 0d 06 18 20 20 6d 65 6e |conspace|... men|
|00000da0| 75 74 69 74 6c 65 5f 66 | 67 63 6f 6c 20 20 20 20 |utitle_f|gcol |
|00000db0| 20 20 20 20 20 3d 20 37 | 0d 06 22 20 20 6d 65 6e | = 7|.." men|
|00000dc0| 75 74 69 74 6c 65 5f 62 | 67 63 6f 6c 20 20 20 20 |utitle_b|gcol |
|00000dd0| 20 20 20 20 20 3d 20 32 | 0d 06 2c 20 20 6d 65 6e | = 2|.., men|
|00000de0| 75 77 6f 72 6b 5f 66 67 | 63 6f 6c 20 20 20 20 20 |uwork_fg|col |
|00000df0| 20 20 20 20 20 3d 20 37 | 0d 06 36 20 20 6d 65 6e | = 7|..6 men|
|00000e00| 75 77 6f 72 6b 5f 62 67 | 63 6f 6c 20 20 20 20 20 |uwork_bg|col |
|00000e10| 20 20 20 20 20 3d 20 30 | 0d 06 40 04 0d 06 4a 20 | = 0|..@...J |
|00000e20| 20 4e 75 6c 6c 5f 52 65 | 61 73 6f 6e 5f 43 6f 64 | Null_Re|ason_Cod|
|00000e30| 65 20 20 20 20 20 20 20 | 20 3d 20 30 0d 06 54 20 |e | = 0..T |
|00000e40| 20 52 65 64 72 61 77 5f | 57 69 6e 64 6f 77 5f 52 | Redraw_|Window_R|
|00000e50| 65 71 75 65 73 74 20 20 | 20 3d 20 31 0d 06 5e 20 |equest | = 1..^ |
|00000e60| 20 4f 70 65 6e 5f 57 69 | 6e 64 6f 77 5f 52 65 71 | Open_Wi|ndow_Req|
|00000e70| 75 65 73 74 20 20 20 20 | 20 3d 20 32 0d 06 68 20 |uest | = 2..h |
|00000e80| 20 43 6c 6f 73 65 5f 57 | 69 6e 64 6f 77 5f 52 65 | Close_W|indow_Re|
|00000e90| 71 75 65 73 74 20 20 20 | 20 3d 20 33 0d 06 72 20 |quest | = 3..r |
|00000ea0| 20 50 6f 69 6e 74 65 72 | 5f 4c 65 61 76 69 6e 67 | Pointer|_Leaving|
|00000eb0| 5f 57 69 6e 64 6f 77 20 | 20 3d 20 34 0d 06 7c 20 |_Window | = 4..| |
|00000ec0| 20 50 6f 69 6e 74 65 72 | 5f 45 6e 74 65 72 69 6e | Pointer|_Enterin|
|00000ed0| 67 5f 57 69 6e 64 6f 77 | 20 3d 20 35 0d 06 86 20 |g_Window| = 5... |
|00000ee0| 20 4d 6f 75 73 65 5f 42 | 75 74 74 6f 6e 5f 43 68 | Mouse_B|utton_Ch|
|00000ef0| 61 6e 67 65 20 20 20 20 | 20 3d 20 36 0d 06 90 20 |ange | = 6... |
|00000f00| 20 55 73 65 72 5f 44 72 | 61 67 5f 42 6f 78 20 20 | User_Dr|ag_Box |
|00000f10| 20 20 20 20 20 20 20 20 | 20 3d 20 37 0d 06 9a 20 | | = 7... |
|00000f20| 20 4b 65 79 5f 50 72 65 | 73 73 65 64 20 20 20 20 | Key_Pre|ssed |
|00000f30| 20 20 20 20 20 20 20 20 | 20 3d 20 38 0d 06 a4 20 | | = 8... |
|00000f40| 20 4d 65 6e 75 5f 53 65 | 6c 65 63 74 20 20 20 20 | Menu_Se|lect |
|00000f50| 20 20 20 20 20 20 20 20 | 20 3d 20 39 0d 06 ae 21 | | = 9...!|
|00000f60| 20 53 63 72 6f 6c 6c 5f | 52 65 71 75 65 73 74 20 | Scroll_|Request |
|00000f70| 20 20 20 20 20 20 20 20 | 20 3d 20 31 30 0d 06 b8 | | = 10...|
|00000f80| 21 20 55 73 65 72 5f 4d | 65 73 73 61 67 65 20 20 |! User_M|essage |
|00000f90| 20 20 20 20 20 20 20 20 | 20 20 3d 20 31 37 0d 06 | | = 17..|
|00000fa0| c2 21 20 55 73 65 72 5f | 4d 65 73 73 61 67 65 5f |.! User_|Message_|
|00000fb0| 52 65 63 6f 72 64 65 64 | 20 20 20 3d 20 31 38 0d |Recorded| = 18.|
|00000fc0| 06 cc 21 20 55 73 65 72 | 5f 4d 65 73 73 61 67 65 |..! User|_Message|
|00000fd0| 5f 41 63 6b 20 20 20 20 | 20 20 20 20 3d 20 31 39 |_Ack | = 19|
|00000fe0| 0d 06 d6 23 20 48 65 6c | 70 5f 52 65 71 75 65 73 |...# Hel|p_Reques|
|00000ff0| 74 20 20 20 20 20 20 20 | 20 20 20 20 20 3d 20 26 |t | = &|
|00001000| 35 30 32 0d 06 e0 23 20 | 48 65 6c 70 5f 53 65 6e |502...# |Help_Sen|
|00001010| 64 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d | |
|00001020| 3d 20 26 35 30 33 0d 06 | ea 25 20 52 65 71 75 65 |= &503..|.% Reque|
|00001030| 73 74 5f 76 61 72 73 20 | 20 20 20 20 20 20 20 20 |st_vars | |
|00001040| 20 20 20 3d 20 26 38 30 | 32 34 30 0d 06 f4 25 20 | = &80|240...% |
|00001050| 52 65 63 65 69 76 65 5f | 56 61 72 73 20 20 20 20 |Receive_|Vars |
|00001060| 20 20 20 20 20 20 20 20 | 3d 20 26 38 30 32 34 31 | |= &80241|
|00001070| 0d 06 fe 25 20 53 65 74 | 5f 62 75 66 66 65 72 73 |...% Set|_buffers|
|00001080| 69 7a 65 20 20 20 20 20 | 20 20 20 20 20 3d 20 26 |ize | = &|
|00001090| 38 30 32 34 32 0d 07 08 | 25 20 53 65 74 5f 73 61 |80242...|% Set_sa|
|000010a0| 6d 70 6c 65 70 72 65 73 | 65 6e 74 20 20 20 20 20 |mplepres|ent |
|000010b0| 20 20 3d 20 26 38 30 32 | 34 33 0d 07 12 25 20 4d | = &802|43...% M|
|000010c0| 65 73 73 61 67 65 5f 53 | 6c 6f 74 53 69 7a 65 25 |essage_S|lotSize%|
|000010d0| 20 20 20 20 20 20 20 3d | 20 26 34 30 30 43 35 0d | =| &400C5.|
|000010e0| 07 1c 04 0d 07 26 20 20 | 4d 65 73 73 61 67 65 5f |.....& |Message_|
|000010f0| 51 75 69 74 20 20 20 20 | 20 20 20 20 20 20 20 20 |Quit | |
|00001100| 3d 20 30 0d 07 30 20 20 | 4d 65 73 73 61 67 65 5f |= 0..0 |Message_|
|00001110| 44 61 74 61 53 61 76 65 | 20 20 20 20 20 20 20 20 |DataSave| |
|00001120| 3d 20 31 0d 07 3a 20 20 | 4d 65 73 73 61 67 65 5f |= 1..: |Message_|
|00001130| 44 61 74 61 53 61 76 65 | 41 63 6b 20 20 20 20 20 |DataSave|Ack |
|00001140| 3d 20 32 0d 07 44 20 20 | 4d 65 73 73 61 67 65 5f |= 2..D |Message_|
|00001150| 44 61 74 61 4c 6f 61 64 | 20 20 20 20 20 20 20 20 |DataLoad| |
|00001160| 3d 20 33 0d 07 4e 20 20 | 4d 65 73 73 61 67 65 5f |= 3..N |Message_|
|00001170| 44 61 74 61 4c 6f 61 64 | 41 63 6b 20 20 20 20 20 |DataLoad|Ack |
|00001180| 3d 20 34 0d 07 58 20 20 | 4d 65 73 73 61 67 65 5f |= 4..X |Message_|
|00001190| 44 61 74 61 4f 70 65 6e | 20 20 20 20 20 20 20 20 |DataOpen| |
|000011a0| 3d 20 35 0d 07 62 20 20 | 4d 65 73 73 61 67 65 5f |= 5..b |Message_|
|000011b0| 50 72 65 51 75 69 74 20 | 20 20 20 20 20 20 20 20 |PreQuit | |
|000011c0| 3d 20 38 0d 07 6c 04 0d | 07 76 18 20 63 6c 61 69 |= 8..l..|.v. clai|
|000011d0| 6d 6d 65 6e 75 20 20 20 | 20 20 20 3d 20 2d 31 0d |mmenu | = -1.|
|000011e0| 07 80 18 20 69 63 6f 6e | 62 61 72 20 20 20 20 20 |... icon|bar |
|000011f0| 20 20 20 3d 20 2d 32 0d | 07 8a 17 20 61 77 61 69 | = -2.|... awai|
|00001200| 74 69 6e 67 61 63 6b 20 | 20 20 20 3d 20 a3 0d 07 |tingack | = ...|
|00001210| 94 23 20 61 64 64 6c 61 | 62 65 6c 5f 69 63 6f 6e |.# addla|bel_icon|
|00001220| 20 20 3d 20 a4 69 63 6f | 6e 5f 69 63 6f 6e 62 61 | = .ico|n_iconba|
|00001230| 72 0d 07 9e 17 20 70 74 | 72 20 20 20 20 20 20 20 |r.... pt|r |
|00001240| 20 20 20 20 20 3d 20 31 | 0d 07 a8 17 20 6e 65 77 | = 1|.... new|
|00001250| 20 20 20 20 20 20 20 20 | 20 20 20 20 3d 20 a3 0d | | = ..|
|00001260| 07 b2 17 20 6c 61 73 74 | 20 20 20 20 20 20 20 20 |... last| |
|00001270| 20 20 20 3d 20 30 0d 07 | bc 19 20 74 61 62 20 20 | = 0..|.. tab |
|00001280| 20 20 20 20 20 20 20 20 | 20 20 3d 20 33 39 34 0d | | = 394.|
|00001290| 07 c6 19 20 64 6f 77 6e | 61 72 72 6f 77 20 20 20 |... down|arrow |
|000012a0| 20 20 20 3d 20 33 39 38 | 0d 07 d0 19 20 75 70 61 | = 398|.... upa|
|000012b0| 72 72 6f 77 20 20 20 20 | 20 20 20 20 3d 20 33 39 |rrow | = 39|
|000012c0| 39 0d 07 da 17 20 6c 61 | 73 74 69 63 6f 6e 20 20 |9.... la|sticon |
|000012d0| 20 20 20 20 20 3d 20 30 | 0d 07 e4 17 20 73 65 61 | = 0|.... sea|
|000012e0| 72 63 68 70 6f 73 20 20 | 20 20 20 20 3d 20 31 0d |rchpos | = 1.|
|000012f0| 07 ee 17 20 66 6f 75 6e | 64 20 20 20 20 20 20 20 |... foun|d |
|00001300| 20 20 20 3d 20 a3 0d 07 | f8 18 20 6f 6c 64 73 65 | = ...|.. oldse|
|00001310| 61 72 63 68 64 61 74 61 | 24 20 3d 20 22 22 0d 08 |archdata|$ = ""..|
|00001320| 02 17 20 69 6e 69 74 73 | 65 61 72 63 68 20 20 20 |.. inits|earch |
|00001330| 20 20 3d 20 b9 0d 08 0c | 04 0d 08 16 13 20 f2 72 | = ....|..... .r|
|00001340| 65 61 64 74 65 6d 70 6c | 61 74 65 73 0d 08 20 11 |eadtempl|ates.. .|
|00001350| 20 f2 64 65 66 69 6e 65 | 6d 65 6e 75 73 0d 08 2a | .define|menus..*|
|00001360| 21 20 f2 6c 6f 61 64 28 | 22 3c 41 64 64 4c 61 62 |! .load(|"<AddLab|
|00001370| 65 6c 24 44 69 72 3e 2e | 44 61 74 61 22 29 0d 08 |el$Dir>.|Data")..|
|00001380| 34 05 e1 0d 08 3e 04 0d | 08 48 15 dd 20 f2 72 65 |4....>..|.H.. .re|
|00001390| 63 65 69 76 65 6d 65 73 | 73 61 67 65 0d 08 52 09 |ceivemes|sage..R.|
|000013a0| 20 ea 20 71 24 0d 08 5c | 13 20 72 65 66 20 20 20 | . q$..\|. ref |
|000013b0| 20 20 3d 20 62 6b 21 38 | 0d 08 66 13 20 74 61 73 | = bk!8|..f. tas|
|000013c0| 6b 20 20 20 20 3d 20 62 | 6b 21 34 0d 08 70 14 20 |k = b|k!4..p. |
|000013d0| 79 6f 75 72 72 65 66 20 | 3d 20 62 6b 21 31 32 0d |yourref |= bk!12.|
|000013e0| 08 7a 04 0d 08 84 0f 20 | c8 8e 20 62 6b 21 31 36 |.z..... |.. bk!16|
|000013f0| 20 ca 0d 08 8e 25 20 20 | c9 20 4d 65 73 73 61 67 | ....% |. Messag|
|00001400| 65 5f 51 75 69 74 20 20 | 20 20 20 20 20 20 3a 20 |e_Quit | : |
|00001410| f2 66 69 6e 69 73 68 0d | 08 98 1d 20 20 c9 20 4d |.finish.|... . M|
|00001420| 65 73 73 61 67 65 5f 44 | 61 74 61 4c 6f 61 64 20 |essage_D|ataLoad |
|00001430| 20 20 20 3a 0d 08 a2 1a | 20 20 c9 20 4d 65 73 73 | :....| . Mess|
|00001440| 61 67 65 5f 44 61 74 61 | 4f 70 65 6e 20 3a 0d 08 |age_Data|Open :..|
|00001450| ac 40 20 20 20 e7 20 ac | 20 a6 2d 31 20 80 20 a4 |.@ . .| .-1 . .|
|00001460| 67 65 74 6c 65 61 66 6e | 61 6d 65 28 a4 73 74 72 |getleafn|ame(.str|
|00001470| 6e 75 6c 6c 74 65 72 6d | 28 62 6b 2b 34 34 29 29 |nullterm|(bk+44))|
|00001480| 3d 22 21 41 64 64 4c 61 | 62 65 6c 22 20 8c 0d 08 |="!AddLa|bel" ...|
|00001490| b6 0e 20 20 20 20 21 62 | 6b 3d 32 30 0d 08 c0 11 |.. !b|k=20....|
|000014a0| 20 20 20 20 62 6b 21 31 | 32 3d 72 65 66 0d 08 ca | bk!1|2=ref...|
|000014b0| 0f 20 20 20 20 62 6b 21 | 31 36 3d 34 0d 08 d4 23 |. bk!|16=4...#|
|000014c0| 20 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 53 65 6e | .. "|Wimp_Sen|
|000014d0| 64 4d 65 73 73 61 67 65 | 22 2c 31 37 2c 62 6b 0d |dMessage|",17,bk.|
|000014e0| 08 de 08 20 20 20 cd 0d | 08 e8 04 0d 08 f2 1d 20 |... ..|....... |
|000014f0| 20 c9 20 4d 65 73 73 61 | 67 65 5f 44 61 74 61 53 | . Messa|ge_DataS|
|00001500| 61 76 65 41 63 6b 20 3a | 0d 08 fc 06 20 cb 0d 09 |aveAck :|.... ...|
|00001510| 06 05 e1 0d 09 10 04 0d | 09 1a 19 dd 20 f2 6f 70 |........|.... .op|
|00001520| 65 6e 77 69 6e 64 6f 77 | 28 77 2c 66 75 6c 6c 29 |enwindow|(w,full)|
|00001530| 0d 09 24 0b 20 62 6b 21 | 30 3d 77 0d 09 2e 34 20 |..$. bk!|0=w...4 |
|00001540| e7 20 ac 20 66 75 6c 6c | 20 8c 20 62 6b 21 30 3d |. . full| . bk!0=|
|00001550| 77 3a c8 99 20 22 57 69 | 6d 70 5f 47 65 74 57 69 |w:.. "Wi|mp_GetWi|
|00001560| 6e 64 6f 77 53 74 61 74 | 65 22 2c 30 2c 62 6b 0d |ndowStat|e",0,bk.|
|00001570| 09 38 1e 20 c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |.8. .. "|Wimp_Ope|
|00001580| 6e 57 69 6e 64 6f 77 22 | 2c 30 2c 62 6b 0d 09 42 |nWindow"|,0,bk..B|
|00001590| 05 e1 0d 09 4c 04 0d 09 | 56 1a dd 20 f2 63 6c 6f |....L...|V.. .clo|
|000015a0| 73 65 77 69 6e 64 6f 77 | 28 68 61 6e 64 6c 65 29 |sewindow|(handle)|
|000015b0| 0d 09 60 10 20 62 6b 21 | 30 3d 68 61 6e 64 6c 65 |..`. bk!|0=handle|
|000015c0| 0d 09 6a 1f 20 c8 99 20 | 22 57 69 6d 70 5f 43 6c |..j. .. |"Wimp_Cl|
|000015d0| 6f 73 65 57 69 6e 64 6f | 77 22 2c 30 2c 62 6b 0d |oseWindo|w",0,bk.|
|000015e0| 09 74 05 e1 0d 09 7e 04 | 0d 09 88 14 dd 20 f2 72 |.t....~.|..... .r|
|000015f0| 65 61 64 74 65 6d 70 6c | 61 74 65 73 0d 09 92 37 |eadtempl|ates...7|
|00001600| 20 c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 54 65 | .. "Wim|p_OpenTe|
|00001610| 6d 70 6c 61 74 65 22 2c | 2c 22 3c 41 64 64 4c 61 |mplate",|,"<AddLa|
|00001620| 62 65 6c 24 44 69 72 3e | 2e 54 65 6d 70 6c 61 74 |bel$Dir>|.Templat|
|00001630| 65 73 22 0d 09 9c 2c 20 | 20 63 72 65 64 69 74 73 |es"..., | credits|
|00001640| 20 20 20 20 20 3d 20 a4 | 74 65 6d 70 6c 61 74 65 | = .|template|
|00001650| 28 22 50 72 6f 67 49 6e | 66 6f 22 2c 22 22 29 0d |("ProgIn|fo","").|
|00001660| 09 a6 2b 20 20 61 64 64 | 72 65 73 73 20 20 20 20 |..+ add|ress |
|00001670| 20 3d 20 a4 74 65 6d 70 | 6c 61 74 65 28 22 50 72 | = .temp|late("Pr|
|00001680| 6f 67 72 61 6d 22 2c 22 | 22 29 0d 09 b0 1c 20 c8 |ogram","|").... .|
|00001690| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 54 65 6d |. "Wimp_|CloseTem|
|000016a0| 70 6c 61 74 65 22 0d 09 | ba 05 e1 0d 09 c4 04 0d |plate"..|........|
|000016b0| 09 ce 17 dd 20 a4 74 65 | 6d 70 6c 61 74 65 28 69 |.... .te|mplate(i|
|000016c0| 64 24 2c 74 24 29 0d 09 | d8 11 20 ea 20 68 61 6e |d$,t$)..|.. . han|
|000016d0| 64 6c 65 2c 70 6f 73 0d | 09 e2 68 20 c8 99 20 22 |dle,pos.|..h .. "|
|000016e0| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|000016f0| 65 22 2c 2c 62 6b 2c 72 | 65 6d 61 69 6e 69 6e 67 |e",,bk,r|emaining|
|00001700| 69 63 6f 6e 73 70 61 63 | 65 2c 69 63 6f 6e 73 70 |iconspac|e,iconsp|
|00001710| 61 63 65 2b 34 30 39 36 | 2c 2d 31 2c 69 64 24 2c |ace+4096|,-1,id$,|
|00001720| 30 20 b8 20 2c 2c 72 65 | 6d 61 69 6e 69 6e 67 69 |0 . ,,re|mainingi|
|00001730| 63 6f 6e 73 70 61 63 65 | 2c 2c 2c 2c 70 6f 73 0d |conspace|,,,,pos.|
|00001740| 09 ec 31 20 e7 20 70 6f | 73 3d 30 20 8c 20 85 20 |..1 . po|s=0 . . |
|00001750| 31 2c 22 54 65 6d 70 6c | 61 74 65 20 27 22 2b 69 |1,"Templ|ate '"+i|
|00001760| 64 24 2b 22 27 20 6e 6f | 74 20 66 6f 75 6e 64 22 |d$+"' no|t found"|
|00001770| 0d 09 f6 0f 20 e7 20 74 | 24 3c 3e 22 22 20 8c 0d |.... . t|$<>"" ..|
|00001780| 0a 00 16 20 20 e7 20 62 | 6b 21 35 36 20 80 20 31 |... . b|k!56 . 1|
|00001790| 3c 3c 38 20 8c 0d 0a 0a | 12 20 20 20 24 28 62 6b |<<8 ....|. $(bk|
|000017a0| 21 37 32 29 3d 74 24 0d | 0a 14 12 20 20 20 62 6b |!72)=t$.|... bk|
|000017b0| 21 38 30 3d a9 28 74 24 | 29 0d 0a 1e 07 20 20 cc |!80=.(t$|).... .|
|000017c0| 0d 0a 28 12 20 20 20 24 | 28 62 6b 2b 37 32 29 3d |..(. $|(bk+72)=|
|000017d0| 74 24 0d 0a 32 07 20 20 | cd 0d 0a 3c 06 20 cd 0d |t$..2. |...<. ..|
|000017e0| 0a 46 28 20 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |.F( .. "|Wimp_Cre|
|000017f0| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 62 6b 20 b8 |ateWindo|w",,bk .|
|00001800| 20 68 61 6e 64 6c 65 0d | 0a 50 0b 3d 68 61 6e 64 | handle.|.P.=hand|
|00001810| 6c 65 0d 0a 5a 04 0d 0a | 64 12 dd 20 f2 64 65 66 |le..Z...|d.. .def|
|00001820| 69 6e 65 6d 65 6e 75 73 | 0d 0a 6e 04 0d 0a 78 1d |inemenus|..n...x.|
|00001830| 20 6d 5f 73 65 61 72 63 | 68 64 61 74 61 3d a4 63 | m_searc|hdata=.c|
|00001840| 72 65 61 74 65 6d 65 6e | 75 0d 0a 82 25 20 dc 20 |reatemen|u...% . |
|00001850| 22 53 65 61 72 63 68 20 | 66 6f 72 2c 38 34 24 73 |"Search |for,84$s|
|00001860| 65 61 72 63 68 64 61 74 | 61 28 32 30 29 22 0d 0a |earchdat|a(20)"..|
|00001870| 8c 04 0d 0a 96 1a 20 6d | 5f 6f 70 74 69 6f 6e 73 |...... m|_options|
|00001880| 3d a4 63 72 65 61 74 65 | 6d 65 6e 75 0d 0a a0 3e |=.create|menu...>|
|00001890| 20 dc 20 22 4f 70 74 69 | 6f 6e 73 2c 30 30 53 65 | . "Opti|ons,00Se|
|000018a0| 61 72 63 68 3e 6d 5f 73 | 65 61 72 63 68 64 61 74 |arch>m_s|earchdat|
|000018b0| 61 2c 30 30 53 6f 72 74 | 2c 30 30 43 6c 65 61 72 |a,00Sort|,00Clear|
|000018c0| 2c 38 30 44 65 6c 65 74 | 65 22 0d 0a aa 04 0d 0a |,80Delet|e"......|
|000018d0| b4 1a 20 6d 5f 69 63 6f | 6e 62 61 72 3d a4 63 72 |.. m_ico|nbar=.cr|
|000018e0| 65 61 74 65 6d 65 6e 75 | 0d 0a be 27 20 dc 20 22 |eatemenu|...' . "|
|000018f0| 41 64 64 4c 61 62 65 6c | 2c 30 30 49 6e 66 6f 3e |AddLabel|,00Info>|
|00001900| 63 72 65 64 69 74 73 2c | 38 30 51 75 69 74 22 0d |credits,|80Quit".|
|00001910| 0a c8 05 e1 0d 0a d2 04 | 0d 0a dc 19 dd 20 f2 6d |........|..... .m|
|00001920| 6f 75 73 65 63 68 61 6e | 67 65 28 6d 6f 75 73 65 |ousechan|ge(mouse|
|00001930| 29 0d 0a e6 18 20 ea 20 | 62 2c 77 69 6e 64 6f 77 |).... . |b,window|
|00001940| 2c 69 63 6f 6e 2c 78 2c | 79 0d 0a f0 12 20 78 20 |,icon,x,|y.... x |
|00001950| 20 20 20 20 20 3d 20 62 | 6b 21 30 0d 0a fa 12 20 | = b|k!0.... |
|00001960| 79 20 20 20 20 20 20 3d | 20 62 6b 21 34 0d 0b 04 |y =| bk!4...|
|00001970| 12 20 62 20 20 20 20 20 | 20 3d 20 62 6b 21 38 0d |. b | = bk!8.|
|00001980| 0b 0e 13 20 77 69 6e 64 | 6f 77 20 3d 20 62 6b 21 |... wind|ow = bk!|
|00001990| 31 32 0d 0b 18 13 20 69 | 63 6f 6e 20 20 20 3d 20 |12.... i|con = |
|000019a0| 62 6b 21 31 36 0d 0b 22 | 0f 20 74 69 6d 65 72 20 |bk!16.."|. timer |
|000019b0| 20 3d 20 91 0d 0b 2c 04 | 0d 0b 36 0c 20 e7 20 62 | = ...,.|..6. . b|
|000019c0| 3d 32 20 8c 0d 0b 40 11 | 20 20 c8 8e 20 77 69 6e |=2 ...@.| .. win|
|000019d0| 64 6f 77 20 ca 0d 0b 4a | 23 20 20 20 c9 20 69 63 |dow ...J|# . ic|
|000019e0| 6f 6e 62 61 72 20 3a 20 | 20 f2 6d 61 69 6e 5f 6d |onbar : | .main_m|
|000019f0| 65 6e 75 28 78 2c 79 29 | 0d 0b 54 30 20 20 20 c9 |enu(x,y)|..T0 .|
|00001a00| 20 61 64 64 72 65 73 73 | 20 3a 20 20 f2 70 6f 70 | address| : .pop|
|00001a10| 75 70 6d 65 6e 75 28 6d | 5f 6f 70 74 69 6f 6e 73 |upmenu(m|_options|
|00001a20| 2c 78 2d 36 34 2c 79 29 | 0d 0b 5e 07 20 20 cb 0d |,x-64,y)|..^. ..|
|00001a30| 0b 68 06 20 cd 0d 0b 72 | 04 0d 0b 7c 0d 20 e7 20 |.h. ...r|...|. . |
|00001a40| 62 3e 3d 34 20 8c 0d 0b | 86 11 20 20 c8 8e 20 77 |b>=4 ...|.. .. w|
|00001a50| 69 6e 64 6f 77 20 ca 0d | 0b 90 22 20 20 20 c9 20 |indow ..|.." . |
|00001a60| 69 63 6f 6e 62 61 72 20 | 3a 20 f2 66 72 6f 6e 74 |iconbar |: .front|
|00001a70| 28 61 64 64 72 65 73 73 | 29 0d 0b 9a 27 20 20 20 |(address|)...' |
|00001a80| c9 20 61 64 64 72 65 73 | 73 20 3a 20 f2 61 64 64 |. addres|s : .add|
|00001a90| 72 65 73 73 5f 63 6c 69 | 63 6b 28 69 63 6f 6e 29 |ress_cli|ck(icon)|
|00001aa0| 0d 0b a4 07 20 20 cb 0d | 0b ae 06 20 cd 0d 0b b8 |.... ..|... ....|
|00001ab0| 05 e1 0d 0b c2 04 0d 0b | cc 1a dd 20 f2 61 64 64 |........|... .add|
|00001ac0| 72 65 73 73 5f 63 6c 69 | 63 6b 28 69 63 6f 6e 29 |ress_cli|ck(icon)|
|00001ad0| 0d 0b d6 0e 20 c8 8e 20 | 69 63 6f 6e 20 ca 0d 0b |.... .. |icon ...|
|00001ae0| e0 18 20 20 c9 20 31 32 | 20 3a 20 f2 64 6f 77 6e |.. . 12| : .down|
|00001af0| 72 65 63 6f 72 64 0d 0b | ea 17 20 20 c9 20 31 33 |record..|.. . 13|
|00001b00| 20 3a 20 f2 67 65 74 72 | 65 63 6f 72 64 0d 0b f4 | : .getr|ecord...|
|00001b10| 16 20 20 c9 20 31 34 20 | 3a 20 f2 75 70 72 65 63 |. . 14 |: .uprec|
|00001b20| 6f 72 64 0d 0b fe 13 20 | 20 c9 20 31 35 20 3a 20 |ord.... | . 15 : |
|00001b30| f2 73 74 6f 72 65 0d 0c | 08 13 20 20 c9 20 31 36 |.store..|.. . 16|
|00001b40| 20 3a 20 f2 70 72 69 6e | 74 0d 0c 12 06 20 cb 0d | : .prin|t.... ..|
|00001b50| 0c 1c 05 e1 0d 0c 26 04 | 0d 0c 30 11 dd 20 f2 64 |......&.|..0.. .d|
|00001b60| 6f 77 6e 72 65 63 6f 72 | 64 0d 0c 3a 14 20 e7 20 |ownrecor|d..:. . |
|00001b70| 28 70 74 72 2d 31 29 20 | 3c 20 31 20 8c 0d 0c 44 |(ptr-1) |< 1 ...D|
|00001b80| 08 20 20 ef 37 0d 0c 4e | 07 20 20 e1 0d 0c 58 06 |. .7..N|. ...X.|
|00001b90| 20 cd 0d 0c 62 17 20 f2 | 73 68 6f 77 72 65 63 6f | ...b. .|showreco|
|00001ba0| 72 64 28 70 74 72 2d 31 | 29 0d 0c 6c 05 e1 0d 0c |rd(ptr-1|)..l....|
|00001bb0| 76 04 0d 0c 80 0f dd 20 | f2 75 70 72 65 63 6f 72 |v...... |.uprecor|
|00001bc0| 64 0d 0c 8a 17 20 e7 20 | 28 70 74 72 2b 31 29 20 |d.... . |(ptr+1) |
|00001bd0| 3e 20 6c 61 73 74 20 8c | 0d 0c 94 08 20 20 ef 37 |> last .|.... .7|
|00001be0| 0d 0c 9e 07 20 20 e1 0d | 0c a8 06 20 cd 0d 0c b2 |.... ..|... ....|
|00001bf0| 17 20 f2 73 68 6f 77 72 | 65 63 6f 72 64 28 70 74 |. .showr|ecord(pt|
|00001c00| 72 2b 31 29 0d 0c bc 05 | e1 0d 0c c6 04 0d 0c d0 |r+1)....|........|
|00001c10| 0c dd 20 f2 73 74 6f 72 | 65 0d 0c da 0b ea 20 70 |.. .stor|e..... p|
|00001c20| 6f 69 6e 74 0d 0c e4 2e | e7 20 6e 65 77 3d b9 20 |oint....|. new=. |
|00001c30| 8c 20 70 6f 69 6e 74 3d | 6c 61 73 74 2b 31 3a 6c |. point=|last+1:l|
|00001c40| 61 73 74 2b 3d 31 20 8b | 20 70 6f 69 6e 74 3d 70 |ast+=1 .| point=p|
|00001c50| 74 72 0d 0c ee 04 0d 0c | f8 29 20 6e 61 6d 65 24 |tr......|.) name$|
|00001c60| 28 70 6f 69 6e 74 29 20 | 20 3d 20 a4 69 6e 64 69 |(point) | = .indi|
|00001c70| 72 65 63 74 28 61 64 64 | 72 65 73 73 2c 35 29 0d |rect(add|ress,5).|
|00001c80| 0d 02 29 20 61 64 64 72 | 31 24 28 70 6f 69 6e 74 |..) addr|1$(point|
|00001c90| 29 20 3d 20 a4 69 6e 64 | 69 72 65 63 74 28 61 64 |) = .ind|irect(ad|
|00001ca0| 64 72 65 73 73 2c 36 29 | 0d 0d 0c 29 20 61 64 64 |dress,6)|...) add|
|00001cb0| 72 32 24 28 70 6f 69 6e | 74 29 20 3d 20 a4 69 6e |r2$(poin|t) = .in|
|00001cc0| 64 69 72 65 63 74 28 61 | 64 64 72 65 73 73 2c 37 |direct(a|ddress,7|
|00001cd0| 29 0d 0d 16 29 20 61 64 | 64 72 33 24 28 70 6f 69 |)...) ad|dr3$(poi|
|00001ce0| 6e 74 29 20 3d 20 a4 69 | 6e 64 69 72 65 63 74 28 |nt) = .i|ndirect(|
|00001cf0| 61 64 64 72 65 73 73 2c | 38 29 0d 0d 20 29 20 61 |address,|8).. ) a|
|00001d00| 64 64 72 34 24 28 70 6f | 69 6e 74 29 20 3d 20 a4 |ddr4$(po|int) = .|
|00001d10| 69 6e 64 69 72 65 63 74 | 28 61 64 64 72 65 73 73 |indirect|(address|
|00001d20| 2c 39 29 0d 0d 2a 2a 20 | 70 6f 73 74 24 28 70 6f |,9)..** |post$(po|
|00001d30| 69 6e 74 29 20 20 3d 20 | a4 69 6e 64 69 72 65 63 |int) = |.indirec|
|00001d40| 74 28 61 64 64 72 65 73 | 73 2c 31 30 29 0d 0d 34 |t(addres|s,10)..4|
|00001d50| 2a 20 74 65 6c 65 24 28 | 70 6f 69 6e 74 29 20 20 |* tele$(|point) |
|00001d60| 3d 20 a4 69 6e 64 69 72 | 65 63 74 28 61 64 64 72 |= .indir|ect(addr|
|00001d70| 65 73 73 2c 31 31 29 0d | 0d 35 04 0d 0d 36 20 e7 |ess,11).|.5...6 .|
|00001d80| 20 6e 65 77 3d b9 20 8c | 20 f2 73 68 6f 77 72 65 | new=. .| .showre|
|00001d90| 63 6f 72 64 28 70 6f 69 | 6e 74 29 0d 0d 3e 05 e1 |cord(poi|nt)..>..|
|00001da0| 0d 0d 48 04 0d 0d 52 0c | dd 20 f2 63 6c 65 61 72 |..H...R.|. .clear|
|00001db0| 0d 0d 5c 09 6e 65 77 3d | b9 0d 0d 66 1b 20 f2 73 |..\.new=|...f. .s|
|00001dc0| 65 74 74 65 78 74 28 61 | 64 64 72 65 73 73 2c 35 |ettext(a|ddress,5|
|00001dd0| 2c 22 22 29 0d 0d 70 1b | 20 f2 73 65 74 74 65 78 |,"")..p.| .settex|
|00001de0| 74 28 61 64 64 72 65 73 | 73 2c 36 2c 22 22 29 0d |t(addres|s,6,"").|
|00001df0| 0d 7a 1b 20 f2 73 65 74 | 74 65 78 74 28 61 64 64 |.z. .set|text(add|
|00001e00| 72 65 73 73 2c 37 2c 22 | 22 29 0d 0d 84 1b 20 f2 |ress,7,"|").... .|
|00001e10| 73 65 74 74 65 78 74 28 | 61 64 64 72 65 73 73 2c |settext(|address,|
|00001e20| 38 2c 22 22 29 0d 0d 8e | 1b 20 f2 73 65 74 74 65 |8,"")...|. .sette|
|00001e30| 78 74 28 61 64 64 72 65 | 73 73 2c 39 2c 22 22 29 |xt(addre|ss,9,"")|
|00001e40| 0d 0d 98 1c 20 f2 73 65 | 74 74 65 78 74 28 61 64 |.... .se|ttext(ad|
|00001e50| 64 72 65 73 73 2c 31 30 | 2c 22 22 29 0d 0d a2 1c |dress,10|,"")....|
|00001e60| 20 f2 73 65 74 74 65 78 | 74 28 61 64 64 72 65 73 | .settex|t(addres|
|00001e70| 73 2c 31 31 2c 22 22 29 | 0d 0d ac 1c 20 f2 73 65 |s,11,"")|.... .se|
|00001e80| 74 74 65 78 74 28 61 64 | 64 72 65 73 73 2c 31 33 |ttext(ad|dress,13|
|00001e90| 2c 22 22 29 0d 0d b6 05 | e1 0d 0d c0 04 0d 0d ca |,"")....|........|
|00001ea0| 15 dd 20 f2 6d 61 69 6e | 5f 6d 65 6e 75 28 78 2c |.. .main|_menu(x,|
|00001eb0| 79 29 0d 0d d4 23 20 f2 | 70 6f 70 75 70 6d 65 6e |y)...# .|popupmen|
|00001ec0| 75 28 6d 5f 69 63 6f 6e | 62 61 72 2c 78 2d 36 34 |u(m_icon|bar,x-64|
|00001ed0| 2c 31 38 34 29 0d 0d de | 05 e1 0d 0d e8 04 0d 0d |,184)...|........|
|00001ee0| f2 14 dd 20 f2 6d 65 6e | 75 73 65 6c 65 63 74 28 |... .men|uselect(|
|00001ef0| 62 29 0d 0d fc 1e 20 ea | 20 7a 2c 6d 70 74 72 2c |b).... .| z,mptr,|
|00001f00| 61 6e 73 77 65 72 24 2c | 6d 78 2c 6d 79 2c 6d 62 |answer$,|mx,my,mb|
|00001f10| 0d 0e 06 3e 20 c8 99 20 | 22 57 69 6d 70 5f 44 65 |...> .. |"Wimp_De|
|00001f20| 63 6f 64 65 4d 65 6e 75 | 22 2c 30 2c 63 6c 61 69 |codeMenu|",0,clai|
|00001f30| 6d 6d 65 6e 75 2c 62 2c | 68 69 65 72 61 72 63 68 |mmenu,b,|hierarch|
|00001f40| 79 20 b8 20 7a 2c 7a 2c | 7a 2c 6d 70 74 72 0d 0e |y . z,z,|z,mptr..|
|00001f50| 10 12 20 61 6e 73 77 65 | 72 24 3d 24 6d 70 74 72 |.. answe|r$=$mptr|
|00001f60| 0d 0e 1a 15 20 f2 6d 6f | 75 73 65 28 6d 78 2c 6d |.... .mo|use(mx,m|
|00001f70| 79 2c 6d 62 29 0d 0e 24 | 13 20 c8 8e 20 63 6c 61 |y,mb)..$|. .. cla|
|00001f80| 69 6d 6d 65 6e 75 20 ca | 0d 0e 2e 04 0d 0e 38 13 |immenu .|......8.|
|00001f90| 20 20 c9 20 6d 5f 69 63 | 6f 6e 62 61 72 20 3a 0d | . m_ic|onbar :.|
|00001fa0| 0e 42 1e 20 20 20 c8 8e | 20 a4 64 65 63 6f 64 65 |.B. ..| .decode|
|00001fb0| 28 61 6e 73 77 65 72 24 | 2c 31 29 20 ca 0d 0e 4c |(answer$|,1) ...L|
|00001fc0| 1b 20 20 20 20 c9 20 22 | 51 75 69 74 22 20 20 3a |. . "|Quit" :|
|00001fd0| 20 f2 66 69 6e 69 73 68 | 0d 0e 56 08 20 20 20 cb | .finish|..V. .|
|00001fe0| 0d 0e 60 04 0d 0e 6a 11 | 20 20 c9 20 6d 5f 6f 70 |..`...j.| . m_op|
|00001ff0| 74 69 6f 6e 73 0d 0e 74 | 1e 20 20 20 c8 8e 20 a4 |tions..t|. .. .|
|00002000| 64 65 63 6f 64 65 28 61 | 6e 73 77 65 72 24 2c 31 |decode(a|nswer$,1|
|00002010| 29 20 ca 0d 0e 7e 1e 20 | 20 20 20 c9 20 22 53 65 |) ...~. | . "Se|
|00002020| 61 72 63 68 22 20 20 20 | 3a 20 f2 73 65 61 72 63 |arch" |: .searc|
|00002030| 68 0d 0e 88 1c 20 20 20 | 20 c9 20 22 53 6f 72 74 |h.... | . "Sort|
|00002040| 22 20 20 20 20 20 3a 20 | f2 73 6f 72 74 0d 0e 92 |" : |.sort...|
|00002050| 1d 20 20 20 20 c9 20 22 | 43 6c 65 61 72 22 20 20 |. . "|Clear" |
|00002060| 20 20 3a 20 f2 63 6c 65 | 61 72 0d 0e 9c 1e 20 20 | : .cle|ar.... |
|00002070| 20 20 c9 20 22 44 65 6c | 65 74 65 22 20 20 20 3a | . "Del|ete" :|
|00002080| 20 f2 64 65 6c 65 74 65 | 0d 0e a6 08 20 20 20 cb | .delete|.... .|
|00002090| 0d 0e b0 04 0d 0e ba 06 | 20 cb 0d 0e c4 25 20 e7 |........| ....% .|
|000020a0| 20 6d 62 3d 31 20 f2 70 | 6f 70 75 70 6d 65 6e 75 | mb=1 .p|opupmenu|
|000020b0| 28 63 6c 61 69 6d 6d 65 | 6e 75 2c 78 2c 79 29 0d |(claimme|nu,x,y).|
|000020c0| 0e ce 05 e1 0d 0e d8 04 | 0d 0e e2 0d dd 20 f2 64 |........|..... .d|
|000020d0| 65 6c 65 74 65 0d 0e ec | 0c 20 ea 20 63 6f 75 6e |elete...|. . coun|
|000020e0| 74 0d 0e f6 17 20 e3 20 | 63 6f 75 6e 74 3d 70 74 |t.... . |count=pt|
|000020f0| 72 20 b8 20 6c 61 73 74 | 0d 0f 00 21 20 20 6e 61 |r . last|...! na|
|00002100| 6d 65 24 28 63 6f 75 6e | 74 29 3d 6e 61 6d 65 24 |me$(coun|t)=name$|
|00002110| 28 63 6f 75 6e 74 2b 31 | 29 0d 0f 0a 23 20 20 61 |(count+1|)...# a|
|00002120| 64 64 72 31 24 28 63 6f | 75 6e 74 29 3d 61 64 64 |ddr1$(co|unt)=add|
|00002130| 72 31 24 28 63 6f 75 6e | 74 2b 31 29 0d 0f 14 23 |r1$(coun|t+1)...#|
|00002140| 20 20 61 64 64 72 32 24 | 28 63 6f 75 6e 74 29 3d | addr2$|(count)=|
|00002150| 61 64 64 72 32 24 28 63 | 6f 75 6e 74 2b 31 29 0d |addr2$(c|ount+1).|
|00002160| 0f 1e 23 20 20 61 64 64 | 72 33 24 28 63 6f 75 6e |..# add|r3$(coun|
|00002170| 74 29 3d 61 64 64 72 33 | 24 28 63 6f 75 6e 74 2b |t)=addr3|$(count+|
|00002180| 31 29 0d 0f 28 23 20 20 | 61 64 64 72 34 24 28 63 |1)..(# |addr4$(c|
|00002190| 6f 75 6e 74 29 3d 61 64 | 64 72 34 24 28 63 6f 75 |ount)=ad|dr4$(cou|
|000021a0| 6e 74 2b 31 29 0d 0f 32 | 21 20 20 70 6f 73 74 24 |nt+1)..2|! post$|
|000021b0| 28 63 6f 75 6e 74 29 3d | 70 6f 73 74 24 28 63 6f |(count)=|post$(co|
|000021c0| 75 6e 74 2b 31 29 0d 0f | 3c 21 20 20 74 65 6c 65 |unt+1)..|<! tele|
|000021d0| 24 28 63 6f 75 6e 74 29 | 3d 74 65 6c 65 24 28 63 |$(count)|=tele$(c|
|000021e0| 6f 75 6e 74 2b 31 29 0d | 0f 46 06 20 ed 0d 0f 50 |ount+1).|.F. ...P|
|000021f0| 0c 20 6c 61 73 74 2d 3d | 31 0d 0f 5a 15 20 f2 73 |. last-=|1..Z. .s|
|00002200| 68 6f 77 72 65 63 6f 72 | 64 28 70 74 72 29 0d 0f |howrecor|d(ptr)..|
|00002210| 64 05 e1 0d 0f 6e 04 0d | 0f 78 0d dd 20 f2 73 65 |d....n..|.x.. .se|
|00002220| 61 72 63 68 0d 0f 82 2b | 20 ea 20 63 6f 75 6e 74 |arch...+| . count|
|00002230| 2c 71 24 2c 71 31 24 2c | 71 32 24 2c 71 33 24 2c |,q$,q1$,|q2$,q3$,|
|00002240| 71 34 24 2c 71 35 24 2c | 71 36 24 2c 71 37 24 0d |q4$,q5$,|q6$,q7$.|
|00002250| 0f 8c 13 20 73 65 61 72 | 63 68 64 61 74 61 24 3d |... sear|chdata$=|
|00002260| 22 22 0d 0f 96 13 20 71 | 24 3d 24 73 65 61 72 63 |"".... q|$=$searc|
|00002270| 68 64 61 74 61 0d 0f a0 | 04 0d 0f aa 14 20 e3 20 |hdata...|..... . |
|00002280| 63 6f 75 6e 74 3d 31 20 | b8 20 a9 71 24 0d 0f b4 |count=1 |. .q$...|
|00002290| 33 20 20 73 65 61 72 63 | 68 64 61 74 61 24 3d 73 |3 searc|hdata$=s|
|000022a0| 65 61 72 63 68 64 61 74 | 61 24 2b bd 28 97 28 c1 |earchdat|a$+.(.(.|
|000022b0| 71 24 2c 63 6f 75 6e 74 | 2c 31 29 29 84 33 32 29 |q$,count|,1)).32)|
|000022c0| 0d 0f be 06 20 ed 0d 0f | c8 04 0d 0f d2 24 20 e7 |.... ...|.....$ .|
|000022d0| 20 6f 6c 64 73 65 61 72 | 63 68 64 61 74 61 24 3c | oldsear|chdata$<|
|000022e0| 3e 73 65 61 72 63 68 64 | 61 74 61 24 20 8c 0d 0f |>searchd|ata$ ...|
|000022f0| dc 0d 20 20 66 6f 75 6e | 64 3d a3 0d 0f e6 11 20 |.. foun|d=..... |
|00002300| 20 73 65 61 72 63 68 70 | 6f 73 3d 31 0d 0f f0 20 | searchp|os=1... |
|00002310| 20 20 6f 6c 64 73 65 61 | 72 63 68 64 61 74 61 24 | oldsea|rchdata$|
|00002320| 3d 73 65 61 72 63 68 64 | 61 74 61 24 0d 0f fa 12 |=searchd|ata$....|
|00002330| 20 20 69 6e 69 74 73 65 | 61 72 63 68 3d b9 0d 10 | initse|arch=...|
|00002340| 04 06 20 cc 0d 10 0e 0d | 20 20 66 6f 75 6e 64 3d |.. .....| found=|
|00002350| a3 0d 10 18 06 20 cd 0d | 10 22 04 0d 10 2c 06 20 |..... ..|."...,. |
|00002360| f5 0d 10 36 0c 20 20 71 | 31 24 3d 22 22 0d 10 40 |...6. q|1$=""..@|
|00002370| 04 0d 10 4a 23 20 20 e3 | 20 63 6f 75 6e 74 3d 31 |...J# .| count=1|
|00002380| 20 b8 20 a9 6e 61 6d 65 | 24 28 73 65 61 72 63 68 | . .name|$(search|
|00002390| 70 6f 73 29 0d 10 54 32 | 20 20 20 71 31 24 3d 71 |pos)..T2| q1$=q|
|000023a0| 31 24 2b bd 28 97 28 c1 | 6e 61 6d 65 24 28 73 65 |1$+.(.(.|name$(se|
|000023b0| 61 72 63 68 70 6f 73 29 | 2c 63 6f 75 6e 74 2c 31 |archpos)|,count,1|
|000023c0| 29 29 84 33 32 29 0d 10 | 5e 33 20 20 20 71 32 24 |)).32)..|^3 q2$|
|000023d0| 3d 71 32 24 2b bd 28 97 | 28 c1 61 64 64 72 31 24 |=q2$+.(.|(.addr1$|
|000023e0| 28 73 65 61 72 63 68 70 | 6f 73 29 2c 63 6f 75 6e |(searchp|os),coun|
|000023f0| 74 2c 31 29 29 84 33 32 | 29 0d 10 68 33 20 20 20 |t,1)).32|)..h3 |
|00002400| 71 33 24 3d 71 33 24 2b | bd 28 97 28 c1 61 64 64 |q3$=q3$+|.(.(.add|
|00002410| 72 32 24 28 73 65 61 72 | 63 68 70 6f 73 29 2c 63 |r2$(sear|chpos),c|
|00002420| 6f 75 6e 74 2c 31 29 29 | 84 33 32 29 0d 10 72 33 |ount,1))|.32)..r3|
|00002430| 20 20 20 71 34 24 3d 71 | 34 24 2b bd 28 97 28 c1 | q4$=q|4$+.(.(.|
|00002440| 61 64 64 72 33 24 28 73 | 65 61 72 63 68 70 6f 73 |addr3$(s|earchpos|
|00002450| 29 2c 63 6f 75 6e 74 2c | 31 29 29 84 33 32 29 0d |),count,|1)).32).|
|00002460| 10 7c 33 20 20 20 71 35 | 24 3d 71 35 24 2b bd 28 |.|3 q5|$=q5$+.(|
|00002470| 97 28 c1 61 64 64 72 34 | 24 28 73 65 61 72 63 68 |.(.addr4|$(search|
|00002480| 70 6f 73 29 2c 63 6f 75 | 6e 74 2c 31 29 29 84 33 |pos),cou|nt,1)).3|
|00002490| 32 29 0d 10 86 32 20 20 | 20 71 36 24 3d 71 36 24 |2)...2 | q6$=q6$|
|000024a0| 2b bd 28 97 28 c1 70 6f | 73 74 24 28 73 65 61 72 |+.(.(.po|st$(sear|
|000024b0| 63 68 70 6f 73 29 2c 63 | 6f 75 6e 74 2c 31 29 29 |chpos),c|ount,1))|
|000024c0| 84 33 32 29 0d 10 90 32 | 20 20 20 71 37 24 3d 71 |.32)...2| q7$=q|
|000024d0| 37 24 2b bd 28 97 28 c1 | 74 65 6c 65 24 28 73 65 |7$+.(.(.|tele$(se|
|000024e0| 61 72 63 68 70 6f 73 29 | 2c 63 6f 75 6e 74 2c 31 |archpos)|,count,1|
|000024f0| 29 29 84 33 32 29 0d 10 | 9a 07 20 20 ed 0d 10 a4 |)).32)..|.. ....|
|00002500| 04 0d 10 ae a8 20 20 e7 | 20 a7 71 31 24 2c 73 65 |..... .| .q1$,se|
|00002510| 61 72 63 68 64 61 74 61 | 24 29 3c 3e 30 20 84 20 |archdata|$)<>0 . |
|00002520| a7 71 32 24 2c 73 65 61 | 72 63 68 64 61 74 61 24 |.q2$,sea|rchdata$|
|00002530| 29 3c 3e 30 20 84 20 a7 | 71 33 24 2c 73 65 61 72 |)<>0 . .|q3$,sear|
|00002540| 63 68 64 61 74 61 24 29 | 3c 3e 30 20 84 20 a7 71 |chdata$)|<>0 . .q|
|00002550| 34 24 2c 73 65 61 72 63 | 68 64 61 74 61 24 29 3c |4$,searc|hdata$)<|
|00002560| 3e 30 20 84 20 a7 71 35 | 24 2c 73 65 61 72 63 68 |>0 . .q5|$,search|
|00002570| 64 61 74 61 24 29 3c 3e | 30 20 84 20 a7 71 36 24 |data$)<>|0 . .q6$|
|00002580| 2c 73 65 61 72 63 68 64 | 61 74 61 24 29 3c 3e 30 |,searchd|ata$)<>0|
|00002590| 20 84 20 a7 71 37 24 2c | 73 65 61 72 63 68 64 61 | . .q7$,|searchda|
|000025a0| 74 61 24 29 3c 3e 30 20 | 8c 0d 10 b8 1d 20 20 20 |ta$)<>0 |..... |
|000025b0| f2 73 68 6f 77 72 65 63 | 6f 72 64 28 73 65 61 72 |.showrec|ord(sear|
|000025c0| 63 68 70 6f 73 29 0d 10 | c2 0e 20 20 20 66 6f 75 |chpos)..|.. fou|
|000025d0| 6e 64 3d b9 0d 10 cc 13 | 20 20 20 69 6e 69 74 73 |nd=.....| inits|
|000025e0| 65 61 72 63 68 3d a3 0d | 10 d6 13 20 20 20 73 65 |earch=..|... se|
|000025f0| 61 72 63 68 70 6f 73 2b | 3d 31 0d 10 e0 07 20 20 |archpos+|=1.... |
|00002600| cc 0d 10 ea 13 20 20 20 | 73 65 61 72 63 68 70 6f |..... |searchpo|
|00002610| 73 2b 3d 31 0d 10 f4 19 | 20 20 20 e7 20 73 65 61 |s+=1....| . sea|
|00002620| 72 63 68 70 6f 73 3e 6c | 61 73 74 20 8c 0d 10 fe |rchpos>l|ast ....|
|00002630| 16 20 20 20 20 e7 20 69 | 6e 69 74 73 65 61 72 63 |. . i|nitsearc|
|00002640| 68 20 8c 0d 11 08 1d 20 | 20 20 20 20 f2 64 72 6f |h ..... | .dro|
|00002650| 6e 67 6f 28 22 4e 6f 74 | 20 66 6f 75 6e 64 22 29 |ngo("Not| found")|
|00002660| 0d 11 12 1a 20 20 20 20 | 20 6f 6c 64 73 65 61 72 |.... | oldsear|
|00002670| 63 68 64 61 74 61 24 3d | 22 22 0d 11 1c 17 20 20 |chdata$=|"".... |
|00002680| 20 20 20 f2 73 68 6f 77 | 72 65 63 6f 72 64 28 31 | .show|record(1|
|00002690| 29 0d 11 26 09 20 20 20 | 20 cc 0d 11 30 14 20 20 |)..&. | ...0. |
|000026a0| 20 20 20 73 65 61 72 63 | 68 70 6f 73 3d 31 0d 11 | searc|hpos=1..|
|000026b0| 3a 09 20 20 20 20 cd 0d | 11 44 08 20 20 20 cd 0d |:. ..|.D. ..|
|000026c0| 11 4e 07 20 20 cd 0d 11 | 58 1d 20 fd 20 73 65 61 |.N. ...|X. . sea|
|000026d0| 72 63 68 70 6f 73 3e 6c | 61 73 74 20 84 20 66 6f |rchpos>l|ast . fo|
|000026e0| 75 6e 64 0d 11 62 04 0d | 11 6c 05 e1 0d 11 76 04 |und..b..|.l....v.|
|000026f0| 0d 11 80 15 dd 20 f2 75 | 6e 74 69 63 6b 28 6d 68 |..... .u|ntick(mh|
|00002700| 25 2c 49 25 29 0d 11 8a | 2b 20 6d 68 25 21 28 32 |%,I%)...|+ mh%!(2|
|00002710| 38 2b 32 34 2a 49 25 29 | 3d 6d 68 25 21 28 32 38 |8+24*I%)|=mh%!(28|
|00002720| 2b 32 34 2a 49 25 29 20 | 80 20 ac 28 26 30 31 29 |+24*I%) |. .(&01)|
|00002730| 0d 11 94 05 e1 0d 11 9e | 04 0d 11 a8 19 dd 20 f2 |........|...... .|
|00002740| 74 6f 67 67 6c 65 74 69 | 63 6b 28 6d 68 25 2c 49 |toggleti|ck(mh%,I|
|00002750| 25 29 0d 11 b2 28 20 6d | 68 25 21 28 32 38 2b 32 |%)...( m|h%!(28+2|
|00002760| 34 2a 49 25 29 3d 6d 68 | 25 21 28 32 38 2b 32 34 |4*I%)=mh|%!(28+24|
|00002770| 2a 49 25 29 20 82 20 26 | 30 31 0d 11 bc 05 e1 0d |*I%) . &|01......|
|00002780| 11 c6 04 0d 11 d0 13 dd | 20 f2 74 69 63 6b 28 6d |........| .tick(m|
|00002790| 68 25 2c 49 25 29 0d 11 | da 28 20 6d 68 25 21 28 |h%,I%)..|.( mh%!(|
|000027a0| 32 38 2b 32 34 2a 49 25 | 29 3d 6d 68 25 21 28 32 |28+24*I%|)=mh%!(2|
|000027b0| 38 2b 32 34 2a 49 25 29 | 20 84 20 26 30 31 0d 11 |8+24*I%)| . &01..|
|000027c0| e4 05 e1 0d 11 ee 04 0d | 11 f8 14 dd 20 f2 73 68 |........|.... .sh|
|000027d0| 61 64 65 28 6d 68 25 2c | 49 25 29 0d 12 02 30 20 |ade(mh%,|I%)...0 |
|000027e0| 6d 68 25 21 28 32 38 2b | 38 2b 32 34 2a 49 25 29 |mh%!(28+|8+24*I%)|
|000027f0| 3d 6d 68 25 21 28 32 38 | 2b 38 2b 32 34 2a 49 25 |=mh%!(28|+8+24*I%|
|00002800| 29 20 84 20 26 34 30 30 | 30 30 30 0d 12 0c 05 e1 |) . &400|000.....|
|00002810| 0d 12 16 04 0d 12 20 16 | dd 20 f2 75 6e 73 68 61 |...... .|. .unsha|
|00002820| 64 65 28 6d 68 25 2c 49 | 25 29 0d 12 2a 33 20 6d |de(mh%,I|%)..*3 m|
|00002830| 68 25 21 28 32 38 2b 38 | 2b 32 34 2a 49 25 29 3d |h%!(28+8|+24*I%)=|
|00002840| 6d 68 25 21 28 32 38 2b | 38 2b 32 34 2a 49 25 29 |mh%!(28+|8+24*I%)|
|00002850| 20 80 20 ac 28 26 34 30 | 30 30 30 30 29 0d 12 34 | . .(&40|0000)..4|
|00002860| 05 e1 0d 12 3e 04 0d 12 | 48 1e dd 20 f2 70 6f 70 |....>...|H.. .pop|
|00002870| 75 70 6d 65 6e 75 28 6d | 65 6e 75 61 64 64 72 2c |upmenu(m|enuaddr,|
|00002880| 78 2c 79 29 0d 12 52 28 | 20 c8 99 20 22 57 69 6d |x,y)..R(| .. "Wim|
|00002890| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 30 2c |p_Create|Menu",0,|
|000028a0| 6d 65 6e 75 61 64 64 72 | 2c 78 2c 79 0d 12 5c 17 |menuaddr|,x,y..\.|
|000028b0| 20 63 6c 61 69 6d 6d 65 | 6e 75 3d 6d 65 6e 75 61 | claimme|nu=menua|
|000028c0| 64 64 72 0d 12 66 05 e1 | 0d 12 70 04 0d 12 7a 17 |ddr..f..|..p...z.|
|000028d0| dd f2 75 70 64 61 74 65 | 69 63 6f 6e 62 61 72 28 |..update|iconbar(|
|000028e0| 73 24 29 0d 12 84 5a 20 | 24 69 63 6f 6e 74 65 78 |s$)...Z |$icontex|
|000028f0| 74 62 75 66 66 3d 73 24 | 3a 62 6b 21 30 3d 2d 31 |tbuff=s$|:bk!0=-1|
|00002900| 3a 62 6b 21 34 3d 53 54 | 70 6c 61 79 65 72 5f 69 |:bk!4=ST|player_i|
|00002910| 63 6f 6e 3a 62 6b 21 38 | 3d 30 3a 62 6b 21 31 32 |con:bk!8|=0:bk!12|
|00002920| 3d 30 3a c8 99 20 22 57 | 69 6d 70 5f 53 65 74 49 |=0:.. "W|imp_SetI|
|00002930| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 6b 0d 12 8e |conState|",,bk...|
|00002940| 05 e1 0d 12 98 04 0d 12 | a2 17 dd 20 f2 64 72 6f |........|... .dro|
|00002950| 6e 67 6f 28 6d 65 73 73 | 61 67 65 24 29 0d 12 ac |ngo(mess|age$)...|
|00002960| 0b 20 62 6b 21 30 3d 30 | 0d 12 b6 15 20 24 28 62 |. bk!0=0|.... $(b|
|00002970| 6b 2b 34 29 3d 6d 65 73 | 73 61 67 65 24 0d 12 c0 |k+4)=mes|sage$...|
|00002980| 31 20 c8 99 20 22 57 69 | 6d 70 5f 52 65 70 6f 72 |1 .. "Wi|mp_Repor|
|00002990| 74 45 72 72 6f 72 22 2c | 62 6b 2c 25 30 30 30 30 |tError",|bk,%0000|
|000029a0| 30 30 31 2c 70 72 6f 67 | 74 69 74 6c 65 24 0d 12 |001,prog|title$..|
|000029b0| ca 05 e1 0d 12 d4 04 0d | 12 de 0d dd 20 f2 66 69 |........|.... .fi|
|000029c0| 6e 69 73 68 0d 12 e8 21 | 20 f2 73 61 76 65 28 22 |nish...!| .save("|
|000029d0| 3c 41 64 64 4c 61 62 65 | 6c 24 44 69 72 3e 2e 44 |<AddLabe|l$Dir>.D|
|000029e0| 61 74 61 22 29 0d 12 f2 | 18 20 c8 99 20 22 57 69 |ata")...|. .. "Wi|
|000029f0| 6d 70 5f 43 6c 6f 73 65 | 44 6f 77 6e 22 0d 12 fc |mp_Close|Down"...|
|00002a00| 06 20 e0 0d 13 06 05 e1 | 0d 13 10 04 0d 13 1a 13 |. ......|........|
|00002a10| dd 20 a4 69 63 6f 6e 5f | 69 63 6f 6e 62 61 72 0d |. .icon_|iconbar.|
|00002a20| 13 24 0d 20 ea 20 68 61 | 6e 64 6c 65 0d 13 2e 0c |.$. . ha|ndle....|
|00002a30| 20 62 6b 21 30 3d 2d 31 | 0d 13 38 0b 20 62 6b 21 | bk!0=-1|..8. bk!|
|00002a40| 34 3d 30 0d 13 42 0d 20 | 62 6b 21 38 3d 2d 31 36 |4=0..B. |bk!8=-16|
|00002a50| 0d 13 4c 0d 20 62 6b 21 | 31 32 3d 38 30 0d 13 56 |..L. bk!|12=80..V|
|00002a60| 0d 20 62 6b 21 31 36 3d | 38 38 0d 13 60 2c 20 62 |. bk!16=|88..`, b|
|00002a70| 6b 21 32 30 3d 25 30 30 | 30 31 30 31 31 31 30 30 |k!20=%00|01011100|
|00002a80| 30 30 30 30 30 30 30 30 | 31 31 30 30 30 30 30 30 |00000000|11000000|
|00002a90| 31 31 31 30 31 30 0d 13 | 6a 19 20 24 28 62 6b 2b |111010..|j. $(bk+|
|00002aa0| 32 34 29 3d 22 21 41 64 | 64 4c 61 62 65 6c 22 0d |24)="!Ad|dLabel".|
|00002ab0| 13 74 26 20 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |.t& .. "|Wimp_Cre|
|00002ac0| 61 74 65 49 63 6f 6e 22 | 2c 2c 62 6b 20 b8 20 68 |ateIcon"|,,bk . h|
|00002ad0| 61 6e 64 6c 65 0d 13 7e | 0b 3d 68 61 6e 64 6c 65 |andle..~|.=handle|
|00002ae0| 0d 13 88 04 0d 13 92 1b | dd 20 f2 6d 6f 75 73 65 |........|. .mouse|
|00002af0| 28 f8 20 78 2c 20 f8 20 | 79 2c 20 f8 20 62 29 0d |(. x, . |y, . b).|
|00002b00| 13 9c 23 20 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |..# .. "|Wimp_Get|
|00002b10| 50 6f 69 6e 74 65 72 49 | 6e 66 6f 22 2c 30 2c 6d |PointerI|nfo",0,m|
|00002b20| 62 6b 0d 13 a6 0c 20 78 | 3d 6d 62 6b 21 30 0d 13 |bk.... x|=mbk!0..|
|00002b30| b0 0c 20 79 3d 6d 62 6b | 21 34 0d 13 ba 0c 20 62 |.. y=mbk|!4.... b|
|00002b40| 3d 6d 62 6b 21 38 0d 13 | c4 05 e1 0d 13 ce 04 0d |=mbk!8..|........|
|00002b50| 13 d8 0f dd 20 a4 6d 61 | 78 28 61 2c 62 29 0d 13 |.... .ma|x(a,b)..|
|00002b60| e2 14 20 e7 20 61 3c 62 | 20 8c 20 3d 62 20 8b 20 |.. . a<b| . =b . |
|00002b70| 3d 61 0d 13 ec 04 0d 13 | f6 0f dd 20 a4 6d 69 6e |=a......|... .min|
|00002b80| 28 61 2c 62 29 0d 14 00 | 14 20 e7 20 61 3e 62 20 |(a,b)...|. . a>b |
|00002b90| 8c 20 3d 62 20 8b 20 3d | 61 0d 14 0a 04 0d 14 14 |. =b . =|a.......|
|00002ba0| 17 dd 20 a4 64 65 63 6f | 64 65 28 61 24 2c 6c 65 |.. .deco|de(a$,le|
|00002bb0| 76 65 6c 29 0d 14 1e 13 | 20 ea 20 70 6f 73 2c 73 |vel)....| . pos,s|
|00002bc0| 74 61 72 74 2c 64 6f 0d | 14 28 0a 20 70 6f 73 3d |tart,do.|.(. pos=|
|00002bd0| 30 0d 14 32 13 20 e3 20 | 64 6f 3d 31 20 b8 20 6c |0..2. . |do=1 . l|
|00002be0| 65 76 65 6c 0d 14 3c 0f | 20 20 73 74 61 72 74 3d |evel..<.| start=|
|00002bf0| 70 6f 73 0d 14 46 11 20 | 20 f5 20 70 6f 73 3d 70 |pos..F. | . pos=p|
|00002c00| 6f 73 2b 31 0d 14 50 23 | 20 20 fd 20 c1 61 24 2c |os+1..P#| . .a$,|
|00002c10| 70 6f 73 2c 31 29 3d 22 | 2e 22 20 84 20 70 6f 73 |pos,1)="|." . pos|
|00002c20| 3e 3d a9 28 61 24 29 0d | 14 5a 06 20 ed 0d 14 64 |>=.(a$).|.Z. ...d|
|00002c30| 2e 20 e7 20 a7 c1 61 24 | 2c 73 74 61 72 74 2b 31 |. . ..a$|,start+1|
|00002c40| 2c 70 6f 73 2d 73 74 61 | 72 74 29 2c 22 2e 22 29 |,pos-sta|rt),".")|
|00002c50| 3d 30 20 8c 20 70 6f 73 | 2b 3d 31 0d 14 6e 20 20 |=0 . pos|+=1..n |
|00002c60| 61 24 3d c1 61 24 2c 73 | 74 61 72 74 2b 31 2c 70 |a$=.a$,s|tart+1,p|
|00002c70| 6f 73 2d 73 74 61 72 74 | 2d 31 29 0d 14 78 07 3d |os-start|-1)..x.=|
|00002c80| 61 24 0d 14 82 04 0d 14 | 8c 18 dd 20 a4 67 65 74 |a$......|... .get|
|00002c90| 6c 65 61 66 6e 61 6d 65 | 28 66 73 70 24 29 0d 14 |leafname|(fsp$)..|
|00002ca0| 96 10 20 70 6f 73 3d a9 | 28 66 73 70 24 29 0d 14 |.. pos=.|(fsp$)..|
|00002cb0| a0 21 20 c8 95 20 c1 66 | 73 70 24 2c 70 6f 73 2c |.! .. .f|sp$,pos,|
|00002cc0| 31 29 3c 3e 22 2e 22 20 | 80 20 70 6f 73 3e 30 0d |1)<>"." |. pos>0.|
|00002cd0| 14 aa 0c 20 20 70 6f 73 | 2d 3d 31 0d 14 b4 06 20 |... pos|-=1.... |
|00002ce0| ce 0d 14 be 11 3d c1 66 | 73 70 24 2c 70 6f 73 2b |.....=.f|sp$,pos+|
|00002cf0| 31 29 0d 14 c8 04 0d 14 | d2 18 dd 20 a4 73 74 72 |1)......|... .str|
|00002d00| 6e 75 6c 6c 74 65 72 6d | 28 61 64 64 72 29 0d 14 |nullterm|(addr)..|
|00002d10| dc 09 20 ea 20 61 24 0d | 14 e6 0d 20 c8 95 20 3f |.. . a$.|... .. ?|
|00002d20| 61 64 64 72 0d 14 f0 12 | 20 20 61 24 2b 3d bd 28 |addr....| a$+=.(|
|00002d30| 3f 61 64 64 72 29 0d 14 | fa 0d 20 20 61 64 64 72 |?addr)..|.. addr|
|00002d40| 2b 3d 31 0d 15 04 06 20 | ce 0d 15 0e 07 3d 61 24 |+=1.... |.....=a$|
|00002d50| 0d 15 18 04 0d 15 22 0f | dd 20 a4 73 65 70 61 72 |......".|. .separ|
|00002d60| 61 74 65 0d 15 2c 14 20 | e7 20 a7 6d 65 6e 75 24 |ate..,. |. .menu$|
|00002d70| 2c 22 2c 22 29 20 8c 0d | 15 36 23 20 20 73 65 70 |,",") ..|.6# sep|
|00002d80| 24 20 20 3d 20 c0 6d 65 | 6e 75 24 2c a7 6d 65 6e |$ = .me|nu$,.men|
|00002d90| 75 24 2c 22 2c 22 29 2d | 31 29 0d 15 40 23 20 20 |u$,",")-|1)..@# |
|00002da0| 6d 65 6e 75 24 20 3d 20 | c1 6d 65 6e 75 24 2c a7 |menu$ = |.menu$,.|
|00002db0| 6d 65 6e 75 24 2c 22 2c | 22 29 2b 31 29 0d 15 4a |menu$,",|")+1)..J|
|00002dc0| 0b 20 20 3d 73 65 70 24 | 0d 15 54 06 20 cd 0d 15 |. =sep$|..T. ...|
|00002dd0| 5e 0a 3d 6d 65 6e 75 24 | 0d 15 68 04 0d 15 72 11 |^.=menu$|..h...r.|
|00002de0| dd 20 a4 63 72 65 61 74 | 65 6d 65 6e 75 0d 15 7c |. .creat|emenu..||
|00002df0| 04 0d 15 86 3c 20 ea 20 | 6d 65 6e 75 24 2c 6d 24 |....< . |menu$,m$|
|00002e00| 2c 70 74 72 2c 66 6c 61 | 67 73 2c 74 65 78 74 24 |,ptr,fla|gs,text$|
|00002e10| 2c 77 72 69 74 65 2c 73 | 68 61 64 65 2c 73 75 62 |,write,s|hade,sub|
|00002e20| 2c 63 6f 6c 6f 75 72 73 | 2c 61 64 64 72 0d 15 90 |,colours|,addr...|
|00002e30| 34 20 e7 20 6d 65 6e 75 | 73 70 61 63 65 2b 32 34 |4 . menu|space+24|
|00002e40| 3e 6d 65 6e 75 65 6e 64 | 20 8c 20 85 20 31 2c 22 |>menuend| . . 1,"|
|00002e50| 4d 65 6e 75 20 73 70 61 | 63 65 20 66 75 6c 6c 2e |Menu spa|ce full.|
|00002e60| 22 0d 15 9a 04 0d 15 a4 | 0c 20 f3 20 6d 65 6e 75 |".......|. . menu|
|00002e70| 24 0d 15 ae 15 20 c8 95 | 20 c2 6d 65 6e 75 24 2c |$.... ..| .menu$,|
|00002e80| 31 29 3d 22 2b 22 0d 15 | b8 0a 20 20 f3 20 6d 24 |1)="+"..|.. . m$|
|00002e90| 0d 15 c2 21 20 20 6d 65 | 6e 75 24 3d c0 6d 65 6e |...! me|nu$=.men|
|00002ea0| 75 24 2c a9 28 6d 65 6e | 75 24 29 2d 31 29 2b 6d |u$,.(men|u$)-1)+m|
|00002eb0| 24 0d 15 cc 06 20 ce 0d | 15 d6 04 0d 15 e0 1d 20 |$.... ..|....... |
|00002ec0| 74 69 74 6c 65 24 20 20 | 20 20 20 20 20 3d 20 a4 |title$ | = .|
|00002ed0| 73 65 70 61 72 61 74 65 | 0d 15 ea 15 20 77 69 64 |separate|.... wid|
|00002ee0| 74 68 20 20 20 20 20 20 | 20 20 3d 20 30 0d 15 f4 |th | = 0...|
|00002ef0| 1a 20 24 28 6d 65 6e 75 | 73 70 61 63 65 29 20 3d |. $(menu|space) =|
|00002f00| 20 74 69 74 6c 65 24 0d | 15 fe 23 20 6d 65 6e 75 | title$.|..# menu|
|00002f10| 73 70 61 63 65 3f 31 32 | 20 3d 20 6d 65 6e 75 74 |space?12| = menut|
|00002f20| 69 74 6c 65 5f 66 67 63 | 6f 6c 0d 16 08 23 20 6d |itle_fgc|ol...# m|
|00002f30| 65 6e 75 73 70 61 63 65 | 3f 31 33 20 3d 20 6d 65 |enuspace|?13 = me|
|00002f40| 6e 75 74 69 74 6c 65 5f | 62 67 63 6f 6c 0d 16 12 |nutitle_|bgcol...|
|00002f50| 22 20 6d 65 6e 75 73 70 | 61 63 65 3f 31 34 20 3d |" menusp|ace?14 =|
|00002f60| 20 6d 65 6e 75 77 6f 72 | 6b 5f 66 67 63 6f 6c 0d | menuwor|k_fgcol.|
|00002f70| 16 1c 22 20 6d 65 6e 75 | 73 70 61 63 65 3f 31 35 |.." menu|space?15|
|00002f80| 20 3d 20 6d 65 6e 75 77 | 6f 72 6b 5f 62 67 63 6f | = menuw|ork_bgco|
|00002f90| 6c 0d 16 26 16 20 6d 65 | 6e 75 73 70 61 63 65 21 |l..&. me|nuspace!|
|00002fa0| 32 30 20 3d 20 34 30 0d | 16 30 15 20 6d 65 6e 75 |20 = 40.|.0. menu|
|00002fb0| 73 70 61 63 65 21 32 34 | 20 3d 20 30 0d 16 3a 20 |space!24| = 0..: |
|00002fc0| 20 70 74 72 20 20 20 20 | 20 20 20 20 20 20 3d 20 | ptr | = |
|00002fd0| 6d 65 6e 75 73 70 61 63 | 65 2b 32 38 0d 16 44 04 |menuspac|e+28..D.|
|00002fe0| 0d 16 4e 06 20 f5 0d 16 | 58 2f 20 20 e7 20 70 74 |..N. ...|X/ . pt|
|00002ff0| 72 2b 32 34 3e 6d 65 6e | 75 65 6e 64 20 8c 20 85 |r+24>men|uend . .|
|00003000| 20 30 2c 22 4d 65 6e 75 | 20 73 70 61 63 65 20 66 | 0,"Menu| space f|
|00003010| 75 6c 6c 2e 22 0d 16 62 | 1e 20 20 66 6c 61 67 73 |ull."..b|. flags|
|00003020| 20 3d 20 a0 28 22 26 22 | 2b c0 6d 65 6e 75 24 2c | = .("&"|+.menu$,|
|00003030| 32 29 29 0d 16 6c 17 20 | 20 6d 65 6e 75 24 20 3d |2))..l. | menu$ =|
|00003040| 20 c1 6d 65 6e 75 24 2c | 33 29 0d 16 76 04 0d 16 | .menu$,|3)..v...|
|00003050| 80 17 20 20 74 65 78 74 | 24 20 3d 20 a4 73 65 70 |.. text|$ = .sep|
|00003060| 61 72 61 74 65 0d 16 8a | 0f 20 20 77 72 69 74 65 |arate...|. write|
|00003070| 20 3d 20 30 0d 16 94 0f | 20 20 73 68 61 64 65 20 | = 0....| shade |
|00003080| 3d 20 30 0d 16 9e 10 20 | 20 73 75 62 20 20 20 3d |= 0.... | sub =|
|00003090| 20 2d 31 0d 16 a8 0f 20 | 20 69 6e 64 69 72 20 3d | -1.... | indir =|
|000030a0| 20 30 0d 16 b2 04 0d 16 | bc 15 20 20 e7 20 a7 74 | 0......|.. . .t|
|000030b0| 65 78 74 24 2c 22 3e 22 | 29 20 8c 0d 16 c6 33 20 |ext$,">"|) ....3 |
|000030c0| 20 20 77 69 64 74 68 3d | a4 6d 61 78 28 77 69 64 | width=|.max(wid|
|000030d0| 74 68 2c a9 28 c1 74 65 | 78 74 24 2c 31 2c a7 74 |th,.(.te|xt$,1,.t|
|000030e0| 65 78 74 24 2c 22 3e 22 | 29 2d 31 29 29 29 0d 16 |ext$,">"|)-1)))..|
|000030f0| d0 23 20 20 20 f2 69 74 | 65 6d 28 c0 74 65 78 74 |.# .it|em(.text|
|00003100| 24 2c a7 74 65 78 74 24 | 2c 22 3e 22 29 2d 31 29 |$,.text$|,">")-1)|
|00003110| 29 0d 16 da 25 20 20 20 | 73 75 62 20 3d 20 a0 28 |)...% |sub = .(|
|00003120| c1 74 65 78 74 24 2c a7 | 74 65 78 74 24 2c 22 3e |.text$,.|text$,">|
|00003130| 22 29 2b 31 29 29 0d 16 | e4 07 20 20 cc 0d 16 ee |")+1))..|.. ....|
|00003140| 18 20 20 20 e7 20 c0 74 | 65 78 74 24 2c 31 29 3d |. . .t|ext$,1)=|
|00003150| 22 24 22 20 8c 0d 16 f8 | 2b 20 20 20 20 70 74 72 |"$" ....|+ ptr|
|00003160| 21 31 32 20 3d 20 a0 28 | c1 74 65 78 74 24 2c 32 |!12 = .(|.text$,2|
|00003170| 2c a7 74 65 78 74 24 2c | 22 28 22 29 2d 32 29 29 |,.text$,|"(")-2))|
|00003180| 0d 17 02 13 20 20 20 20 | 70 74 72 21 31 36 20 3d |.... |ptr!16 =|
|00003190| 20 2d 31 0d 17 0c 47 20 | 20 20 20 70 74 72 21 32 | -1...G | ptr!2|
|000031a0| 30 20 3d 20 a0 28 c1 74 | 65 78 74 24 2c 20 a7 74 |0 = .(.t|ext$, .t|
|000031b0| 65 78 74 24 2c 22 28 22 | 29 2b 31 2c 20 a7 74 65 |ext$,"("|)+1, .te|
|000031c0| 78 74 24 2c 22 29 22 29 | 2d a7 74 65 78 74 24 2c |xt$,")")|-.text$,|
|000031d0| 22 28 22 29 2d 31 29 29 | 2b 31 0d 17 16 20 20 20 |"(")-1))|+1... |
|000031e0| 20 20 77 69 64 74 68 3d | a4 6d 61 78 28 77 69 64 | width=|.max(wid|
|000031f0| 74 68 2c 70 74 72 21 32 | 30 29 0d 17 20 08 20 20 |th,ptr!2|0).. . |
|00003200| 20 cc 0d 17 2a 14 20 20 | 20 20 f2 69 74 65 6d 28 | ...*. | .item(|
|00003210| 74 65 78 74 24 29 0d 17 | 34 22 20 20 20 20 77 69 |text$)..|4" wi|
|00003220| 64 74 68 3d a4 6d 61 78 | 28 77 69 64 74 68 2c a9 |dth=.max|(width,.|
|00003230| 28 74 65 78 74 24 29 29 | 0d 17 3e 08 20 20 20 cd |(text$))|..>. .|
|00003240| 0d 17 48 07 20 20 cd 0d | 17 52 04 0d 17 5c 23 20 |..H. ..|.R...\# |
|00003250| 20 e7 20 66 6c 61 67 73 | 20 80 20 26 30 34 20 8c | . flags| . &04 .|
|00003260| 20 77 72 69 74 65 20 3d | 20 26 46 31 30 30 0d 17 | write =| &F100..|
|00003270| 66 25 20 20 e7 20 66 6c | 61 67 73 20 80 20 26 30 |f% . fl|ags . &0|
|00003280| 38 20 8c 20 73 68 61 64 | 65 20 3d 20 26 34 30 30 |8 . shad|e = &400|
|00003290| 30 30 30 0d 17 70 37 20 | 20 63 6f 6c 6f 75 72 73 |000..p7 | colours|
|000032a0| 20 3d 20 6d 65 6e 75 77 | 6f 72 6b 5f 62 67 63 6f | = menuw|ork_bgco|
|000032b0| 6c 3c 3c 32 38 20 84 20 | 6d 65 6e 75 77 6f 72 6b |l<<28 . |menuwork|
|000032c0| 5f 66 67 63 6f 6c 3c 3c | 32 34 0d 17 7a 15 20 20 |_fgcol<<|24..z. |
|000032d0| 70 74 72 21 30 20 20 20 | 3d 20 66 6c 61 67 73 0d |ptr!0 |= flags.|
|000032e0| 17 84 13 20 20 70 74 72 | 21 34 20 20 20 3d 20 73 |... ptr|!4 = s|
|000032f0| 75 62 0d 17 8e 38 20 20 | 70 74 72 21 38 20 20 20 |ub...8 |ptr!8 |
|00003300| 3d 20 73 68 61 64 65 20 | 84 20 77 72 69 74 65 20 |= shade |. write |
|00003310| 84 20 63 6f 6c 6f 75 72 | 73 20 84 20 69 6e 64 69 |. colour|s . indi|
|00003320| 72 20 84 20 26 31 30 30 | 32 31 0d 17 98 16 20 20 |r . &100|21.... |
|00003330| 70 74 72 20 20 20 20 20 | 3d 20 70 74 72 2b 32 34 |ptr |= ptr+24|
|00003340| 0d 17 a2 12 20 fd 20 66 | 6c 61 67 73 20 80 20 26 |.... . f|lags . &|
|00003350| 38 30 0d 17 ac 25 20 e7 | 20 77 69 64 74 68 3c 3e |80...% .| width<>|
|00003360| 31 20 8c 20 e7 20 77 69 | 64 74 68 3c 38 20 8c 20 |1 . . wi|dth<8 . |
|00003370| 77 69 64 74 68 3d 38 0d | 17 b6 1f 20 6d 65 6e 75 |width=8.|... menu|
|00003380| 73 70 61 63 65 21 31 36 | 20 3d 20 77 69 64 74 68 |space!16| = width|
|00003390| 2a 31 36 2b 31 34 0d 17 | c0 1d 20 61 64 64 72 20 |*16+14..|.. addr |
|000033a0| 20 20 20 20 20 20 20 20 | 3d 20 6d 65 6e 75 73 70 | |= menusp|
|000033b0| 61 63 65 0d 17 ca 17 20 | 6d 65 6e 75 73 70 61 63 |ace.... |menuspac|
|000033c0| 65 20 20 20 20 3d 20 70 | 74 72 0d 17 d4 09 3d 61 |e = p|tr....=a|
|000033d0| 64 64 72 0d 17 de 04 0d | 17 e8 12 dd 20 f2 69 74 |ddr.....|.... .it|
|000033e0| 65 6d 28 74 65 78 74 24 | 29 0d 17 f2 10 20 ea 20 |em(text$|).... . |
|000033f0| 77 6f 72 6b 73 70 61 63 | 65 0d 17 fc 14 20 e7 20 |workspac|e.... . |
|00003400| a9 28 74 65 78 74 24 29 | 3c 31 32 20 8c 0d 18 06 |.(text$)|<12 ....|
|00003410| 15 20 20 24 28 70 74 72 | 2b 31 32 29 3d 74 65 78 |. $(ptr|+12)=tex|
|00003420| 74 24 0d 18 10 06 20 cc | 0d 18 1a 1a 20 20 de 20 |t$.... .|.... . |
|00003430| 77 6f 72 6b 73 70 61 63 | 65 20 a9 28 74 65 78 74 |workspac|e .(text|
|00003440| 24 29 0d 18 24 16 20 20 | 24 77 6f 72 6b 73 70 61 |$)..$. |$workspa|
|00003450| 63 65 3d 74 65 78 74 24 | 0d 18 2e 18 20 20 70 74 |ce=text$|.... pt|
|00003460| 72 21 31 32 20 3d 20 77 | 6f 72 6b 73 70 61 63 65 |r!12 = w|orkspace|
|00003470| 0d 18 38 11 20 20 70 74 | 72 21 31 36 20 3d 20 2d |..8. pt|r!16 = -|
|00003480| 31 0d 18 42 17 20 20 70 | 74 72 21 32 30 20 3d 20 |1..B. p|tr!20 = |
|00003490| a9 28 74 65 78 74 24 29 | 0d 18 4c 13 20 20 69 6e |.(text$)|..L. in|
|000034a0| 64 69 72 20 20 3d 20 31 | 3c 3c 38 0d 18 56 06 20 |dir = 1|<<8..V. |
|000034b0| cd 0d 18 60 05 e1 0d 18 | 6a 04 0d 18 74 10 dd 20 |...`....|j...t.. |
|000034c0| a4 61 73 6b 28 61 73 6b | 24 29 0d 18 7e 09 20 ea |.ask(ask|$)..~. .|
|000034d0| 20 52 31 0d 18 88 0b 20 | 62 6b 21 30 3d 30 0d 18 | R1.... |bk!0=0..|
|000034e0| 92 11 20 24 28 62 6b 2b | 34 29 3d 61 73 6b 24 0d |.. $(bk+|4)=ask$.|
|000034f0| 18 9c 47 20 c8 99 20 22 | 57 69 6d 70 5f 52 65 70 |..G .. "|Wimp_Rep|
|00003500| 6f 72 74 45 72 72 6f 72 | 22 2c 62 6b 2c 25 30 30 |ortError|",bk,%00|
|00003510| 31 30 30 31 31 2c 22 4d | 65 73 73 61 67 65 20 66 |10011,"M|essage f|
|00003520| 72 6f 6d 20 22 2b 70 72 | 6f 67 74 69 74 6c 65 24 |rom "+pr|ogtitle$|
|00003530| 20 b8 20 2c 52 31 0d 18 | a6 12 e7 20 52 31 3d 31 | . ,R1..|... R1=1|
|00003540| 20 3d b9 20 8b 20 3d a3 | 0d 18 b0 04 0d 18 ba 10 | =. . =.|........|
|00003550| dd 20 f2 63 6c 6f 73 65 | 6d 65 6e 75 0d 18 c4 0c |. .close|menu....|
|00003560| 20 ea 20 78 2c 79 2c 62 | 0d 18 ce 12 20 f2 6d 6f | . x,y,b|.... .mo|
|00003570| 75 73 65 28 78 2c 79 2c | 62 29 0d 18 d8 0e 20 e7 |use(x,y,|b).... .|
|00003580| 20 62 20 80 20 31 20 8c | 0d 18 e2 15 20 20 f2 6d | b . 1 .|.... .m|
|00003590| 61 69 6e 5f 6d 65 6e 75 | 28 78 2c 79 29 0d 18 ec |ain_menu|(x,y)...|
|000035a0| 06 20 cc 0d 18 f6 1f 20 | 20 c8 99 20 22 57 69 6d |. ..... | .. "Wim|
|000035b0| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 30 2c |p_Create|Menu",0,|
|000035c0| 2d 31 0d 19 00 06 20 cd | 0d 19 0a 05 e1 0d 19 14 |-1.... .|........|
|000035d0| 04 0d 19 1e 1d dd 20 f2 | 73 74 72 6e 75 6c 6c 74 |...... .|strnullt|
|000035e0| 65 72 6d 28 61 64 64 72 | 2c 66 73 70 24 29 0d 19 |erm(addr|,fsp$)..|
|000035f0| 28 0f 20 24 61 64 64 72 | 3d 66 73 70 24 0d 19 32 |(. $addr|=fsp$..2|
|00003600| 11 20 61 64 64 72 3f a9 | 66 73 70 24 3d 30 0d 19 |. addr?.|fsp$=0..|
|00003610| 3c 05 e1 0d 19 46 04 0d | 19 50 0e dd 20 f2 77 61 |<....F..|.P.. .wa|
|00003620| 69 74 70 74 72 0d 19 5a | 16 20 c8 99 20 22 48 6f |itptr..Z|. .. "Ho|
|00003630| 75 72 67 6c 61 73 73 5f | 4f 6e 22 0d 19 64 05 e1 |urglass_|On"..d..|
|00003640| 0d 19 6e 04 0d 19 78 0f | dd 20 f2 61 72 72 6f 77 |..n...x.|. .arrow|
|00003650| 70 74 72 0d 19 82 17 20 | c8 99 20 22 48 6f 75 72 |ptr.... |.. "Hour|
|00003660| 67 6c 61 73 73 5f 4f 66 | 66 22 0d 19 8c 05 e1 0d |glass_Of|f"......|
|00003670| 19 96 04 0d 19 a0 35 dd | 20 f2 73 65 74 63 61 72 |......5.| .setcar|
|00003680| 65 74 70 6f 73 69 74 69 | 6f 6e 28 77 69 6e 64 6f |etpositi|on(windo|
|00003690| 77 2c 69 63 6f 6e 2c 78 | 2c 79 2c 68 65 69 67 68 |w,icon,x|,y,heigh|
|000036a0| 74 2c 69 6e 64 65 78 29 | 0d 19 aa 3c 20 c8 99 20 |t,index)|...< .. |
|000036b0| 22 57 69 6d 70 5f 53 65 | 74 43 61 72 65 74 50 6f |"Wimp_Se|tCaretPo|
|000036c0| 73 69 74 69 6f 6e 22 2c | 77 69 6e 64 6f 77 2c 69 |sition",|window,i|
|000036d0| 63 6f 6e 2c 78 2c 79 2c | 68 65 69 67 68 74 2c 69 |con,x,y,|height,i|
|000036e0| 6e 64 65 78 0d 19 b4 05 | e1 0d 19 be 04 0d 19 c8 |ndex....|........|
|000036f0| 14 dd 20 a4 69 6e 64 69 | 72 65 63 74 28 77 2c 69 |.. .indi|rect(w,i|
|00003700| 29 0d 19 d2 0d 20 62 6b | 21 30 20 3d 20 77 0d 19 |).... bk|!0 = w..|
|00003710| dc 0d 20 62 6b 21 34 20 | 3d 20 69 0d 19 e6 20 20 |.. bk!4 |= i... |
|00003720| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |.. "Wimp|_GetIcon|
|00003730| 53 74 61 74 65 22 2c 30 | 2c 62 6b 0d 19 f0 0d 3d |State",0|,bk....=|
|00003740| 24 28 62 6b 21 32 38 29 | 0d 19 fa 04 0d 1a 04 21 |$(bk!28)|.......!|
|00003750| dd 20 f2 73 63 72 69 6e | 66 6f 28 f8 20 77 69 64 |. .scrin|fo(. wid|
|00003760| 74 68 2c 20 f8 20 68 65 | 69 67 68 74 29 0d 1a 0e |th, . he|ight)...|
|00003770| 1e 20 62 6b 21 30 20 20 | 3d 20 34 20 20 3a 20 f4 |. bk!0 |= 4 : .|
|00003780| 20 58 45 69 67 46 61 63 | 74 6f 72 0d 1a 18 1e 20 | XEigFac|tor.... |
|00003790| 62 6b 21 34 20 20 3d 20 | 35 20 20 3a 20 f4 20 59 |bk!4 = |5 : . Y|
|000037a0| 45 69 67 46 61 63 74 6f | 72 0d 1a 22 1e 20 62 6b |EigFacto|r..". bk|
|000037b0| 21 38 20 20 3d 20 31 31 | 20 3a 20 f4 20 58 57 69 |!8 = 11| : . XWi|
|000037c0| 6e 64 4c 69 6d 69 74 0d | 1a 2c 1e 20 62 6b 21 31 |ndLimit.|.,. bk!1|
|000037d0| 32 20 3d 20 31 32 20 3a | 20 f4 20 59 57 69 6e 64 |2 = 12 :| . YWind|
|000037e0| 4c 69 6d 69 74 0d 1a 36 | 22 20 62 6b 21 31 36 20 |Limit..6|" bk!16 |
|000037f0| 3d 20 2d 31 20 3a 20 f4 | 20 74 65 72 6d 69 6e 61 |= -1 : .| termina|
|00003800| 74 65 20 6c 69 73 74 0d | 1a 40 24 20 c8 99 20 22 |te list.|.@$ .. "|
|00003810| 4f 53 5f 52 65 61 64 56 | 64 75 56 61 72 69 61 62 |OS_ReadV|duVariab|
|00003820| 6c 65 73 22 2c 62 6b 2c | 20 62 6b 0d 1a 4a 24 20 |les",bk,| bk..J$ |
|00003830| 77 69 64 74 68 20 20 3d | 20 28 31 3c 3c 28 62 6b |width =| (1<<(bk|
|00003840| 21 30 29 29 2a 28 28 62 | 6b 21 38 29 2b 31 29 0d |!0))*((b|k!8)+1).|
|00003850| 1a 54 25 20 68 65 69 67 | 68 74 20 3d 20 28 31 3c |.T% heig|ht = (1<|
|00003860| 3c 28 62 6b 21 34 29 29 | 2a 28 28 62 6b 21 31 32 |<(bk!4))|*((bk!12|
|00003870| 29 2b 31 29 0d 1a 5e 05 | e1 0d 1a 68 04 0d 1a 72 |)+1)..^.|...h...r|
|00003880| 20 dd 20 f2 64 72 61 67 | 69 63 6f 6e 28 78 2c 79 | . .drag|icon(x,y|
|00003890| 2c 68 61 6e 64 6c 65 2c | 69 63 6f 6e 29 0d 1a 7c |,handle,|icon)..||
|000038a0| 2f 20 ea 20 78 30 2c 79 | 30 2c 69 78 30 2c 69 79 |/ . x0,y|0,ix0,iy|
|000038b0| 30 2c 69 78 31 2c 69 79 | 31 2c 73 63 72 77 69 64 |0,ix1,iy|1,scrwid|
|000038c0| 74 68 2c 73 63 72 68 65 | 69 67 68 74 0d 1a 86 04 |th,scrhe|ight....|
|000038d0| 0d 1a 90 21 20 f2 73 63 | 72 69 6e 66 6f 28 73 63 |...! .sc|rinfo(sc|
|000038e0| 72 77 69 64 74 68 2c 73 | 63 72 68 65 69 67 68 74 |rwidth,s|crheight|
|000038f0| 29 0d 1a 9a 04 0d 1a a4 | 2e 20 62 6b 21 30 3d 68 |).......|. bk!0=h|
|00003900| 61 6e 64 6c 65 3a c8 99 | 20 22 57 69 6d 70 5f 47 |andle:..| "Wimp_G|
|00003910| 65 74 57 69 6e 64 6f 77 | 53 74 61 74 65 22 2c 30 |etWindow|State",0|
|00003920| 2c 62 6b 0d 1a ae 15 20 | 78 30 3d 62 6b 21 34 3a |,bk.... |x0=bk!4:|
|00003930| 79 30 3d 62 6b 21 31 36 | 0d 1a b8 36 20 62 6b 21 |y0=bk!16|...6 bk!|
|00003940| 30 3d 68 61 6e 64 6c 65 | 3a 62 6b 21 34 3d 69 63 |0=handle|:bk!4=ic|
|00003950| 6f 6e 3a c8 99 20 22 57 | 69 6d 70 5f 47 65 74 49 |on:.. "W|imp_GetI|
|00003960| 63 6f 6e 53 74 61 74 65 | 22 2c 30 2c 62 6b 0d 1a |conState|",0,bk..|
|00003970| c2 2b 20 69 78 30 3d 62 | 6b 21 38 3a 69 79 30 3d |.+ ix0=b|k!8:iy0=|
|00003980| 62 6b 21 31 32 3a 69 78 | 31 3d 62 6b 21 31 36 3a |bk!12:ix|1=bk!16:|
|00003990| 69 79 31 3d 62 6b 21 32 | 30 0d 1a cc 04 0d 1a d6 |iy1=bk!2|0.......|
|000039a0| 13 20 62 6b 21 30 20 20 | 3d 20 68 61 6e 64 6c 65 |. bk!0 |= handle|
|000039b0| 0d 1a e0 0e 20 62 6b 21 | 34 20 20 3d 20 35 0d 1a |.... bk!|4 = 5..|
|000039c0| ea 18 20 62 6b 21 38 20 | 20 3d 20 78 30 2b 69 78 |.. bk!8 | = x0+ix|
|000039d0| 30 3a f4 20 2d 32 0d 1a | f4 18 20 62 6b 21 31 32 |0:. -2..|.. bk!12|
|000039e0| 20 3d 20 79 30 2b 69 79 | 30 3a f4 20 2d 34 0d 1a | = y0+iy|0:. -4..|
|000039f0| fe 19 20 62 6b 21 31 36 | 20 3d 20 78 30 2b 69 78 |.. bk!16| = x0+ix|
|00003a00| 31 3a f4 20 2b 31 30 0d | 1b 08 13 20 62 6b 21 32 |1:. +10.|... bk!2|
|00003a10| 30 20 3d 20 79 30 2b 69 | 79 31 0d 1b 12 0e 20 62 |0 = y0+i|y1.... b|
|00003a20| 6b 21 32 34 20 3d 20 30 | 0d 1b 1c 0e 20 62 6b 21 |k!24 = 0|.... bk!|
|00003a30| 32 38 20 3d 20 30 0d 1b | 26 15 20 62 6b 21 33 32 |28 = 0..|&. bk!32|
|00003a40| 20 3d 20 73 63 72 77 69 | 64 74 68 0d 1b 30 16 20 | = scrwi|dth..0. |
|00003a50| 62 6b 21 33 36 20 3d 20 | 73 63 72 68 65 69 67 68 |bk!36 = |scrheigh|
|00003a60| 74 0d 1b 3a 18 20 63 6c | 61 69 6d 64 72 61 67 62 |t..:. cl|aimdragb|
|00003a70| 6f 78 3d 68 61 6e 64 6c | 65 0d 1b 44 04 0d 1b 4e |ox=handl|e..D...N|
|00003a80| 1b 20 c8 99 20 22 57 69 | 6d 70 5f 44 72 61 67 42 |. .. "Wi|mp_DragB|
|00003a90| 6f 78 22 2c 30 2c 62 6b | 0d 1b 58 05 e1 0d 1b 62 |ox",0,bk|..X....b|
|00003aa0| 04 0d 1b 6c 0f dd 20 f2 | 75 73 65 72 64 72 61 67 |...l.. .|userdrag|
|00003ab0| 0d 1b 76 05 e1 0d 1b 80 | 04 0d 1b 8a 11 dd 20 f2 |..v.....|...... .|
|00003ac0| 73 61 76 65 28 66 73 70 | 24 29 0d 1b 94 0f 20 ea |save(fsp|$).... .|
|00003ad0| 20 58 25 2c 63 6f 75 6e | 74 0d 1b 9e 04 0d 1b a8 | X%,coun|t.......|
|00003ae0| 0f 20 58 25 3d ae 28 66 | 73 70 24 29 0d 1b b2 04 |. X%=.(f|sp$)....|
|00003af0| 0d 1b bc 11 20 d5 20 23 | 58 25 2c c3 28 70 74 72 |.... . #|X%,.(ptr|
|00003b00| 29 0d 1b c6 12 20 d5 20 | 23 58 25 2c c3 28 6c 61 |).... . |#X%,.(la|
|00003b10| 73 74 29 0d 1b d0 04 0d | 1b da 15 20 e3 20 63 6f |st).....|... . co|
|00003b20| 75 6e 74 3d 31 20 b8 20 | 6c 61 73 74 0d 1b e4 18 |unt=1 . |last....|
|00003b30| 20 20 d5 20 23 58 25 2c | 6e 61 6d 65 24 28 63 6f | . #X%,|name$(co|
|00003b40| 75 6e 74 29 0d 1b ee 19 | 20 20 d5 20 23 58 25 2c |unt)....| . #X%,|
|00003b50| 61 64 64 72 31 24 28 63 | 6f 75 6e 74 29 0d 1b f8 |addr1$(c|ount)...|
|00003b60| 19 20 20 d5 20 23 58 25 | 2c 61 64 64 72 32 24 28 |. . #X%|,addr2$(|
|00003b70| 63 6f 75 6e 74 29 0d 1c | 02 19 20 20 d5 20 23 58 |count)..|.. . #X|
|00003b80| 25 2c 61 64 64 72 33 24 | 28 63 6f 75 6e 74 29 0d |%,addr3$|(count).|
|00003b90| 1c 0c 19 20 20 d5 20 23 | 58 25 2c 61 64 64 72 34 |... . #|X%,addr4|
|00003ba0| 24 28 63 6f 75 6e 74 29 | 0d 1c 16 18 20 20 d5 20 |$(count)|.... . |
|00003bb0| 23 58 25 2c 70 6f 73 74 | 24 28 63 6f 75 6e 74 29 |#X%,post|$(count)|
|00003bc0| 0d 1c 20 18 20 20 d5 20 | 23 58 25 2c 74 65 6c 65 |.. . . |#X%,tele|
|00003bd0| 24 28 63 6f 75 6e 74 29 | 0d 1c 2a 06 20 ed 0d 1c |$(count)|..*. ...|
|00003be0| 34 04 0d 1c 3e 0a 20 d9 | 20 23 58 25 0d 1c 48 04 |4...>. .| #X%..H.|
|00003bf0| 0d 1c 52 1e 20 ff 28 22 | 53 65 74 74 79 70 65 20 |..R. .("|Settype |
|00003c00| 22 2b 66 73 70 24 2b 22 | 20 46 46 46 22 29 0d 1c |"+fsp$+"| FFF")..|
|00003c10| 5c 05 e1 0d 1c 66 04 0d | 1c 70 11 dd 20 f2 6c 6f |\....f..|.p.. .lo|
|00003c20| 61 64 28 66 73 70 24 29 | 0d 1c 7a 13 20 ea 20 63 |ad(fsp$)|..z. . c|
|00003c30| 6f 75 6e 74 2c 64 75 6d | 6d 79 24 0d 1c 84 04 0d |ount,dum|my$.....|
|00003c40| 1c 8e 0f 20 58 25 3d 8e | 28 66 73 70 24 29 0d 1c |... X%=.|(fsp$)..|
|00003c50| 98 04 0d 1c a2 10 20 70 | 74 72 3d bb 28 be 23 58 |...... p|tr=.(.#X|
|00003c60| 25 29 0d 1c ac 11 20 6c | 61 73 74 3d bb 28 be 23 |%).... l|ast=.(.#|
|00003c70| 58 25 29 0d 1c b6 04 0d | 1c c0 15 20 e3 20 63 6f |X%).....|... . co|
|00003c80| 75 6e 74 3d 31 20 b8 20 | 6c 61 73 74 0d 1c ca 17 |unt=1 . |last....|
|00003c90| 20 20 6e 61 6d 65 24 28 | 63 6f 75 6e 74 29 3d be | name$(|count)=.|
|00003ca0| 23 58 25 0d 1c d4 18 20 | 20 61 64 64 72 31 24 28 |#X%.... | addr1$(|
|00003cb0| 63 6f 75 6e 74 29 3d be | 23 58 25 0d 1c de 18 20 |count)=.|#X%.... |
|00003cc0| 20 61 64 64 72 32 24 28 | 63 6f 75 6e 74 29 3d be | addr2$(|count)=.|
|00003cd0| 23 58 25 0d 1c e8 18 20 | 20 61 64 64 72 33 24 28 |#X%.... | addr3$(|
|00003ce0| 63 6f 75 6e 74 29 3d be | 23 58 25 0d 1c f2 18 20 |count)=.|#X%.... |
|00003cf0| 20 61 64 64 72 34 24 28 | 63 6f 75 6e 74 29 3d be | addr4$(|count)=.|
|00003d00| 23 58 25 0d 1c fc 17 20 | 20 70 6f 73 74 24 28 63 |#X%.... | post$(c|
|00003d10| 6f 75 6e 74 29 3d be 23 | 58 25 0d 1d 06 17 20 20 |ount)=.#|X%.... |
|00003d20| 74 65 6c 65 24 28 63 6f | 75 6e 74 29 3d be 23 58 |tele$(co|unt)=.#X|
|00003d30| 25 0d 1d 10 06 20 ed 0d | 1d 1a 04 0d 1d 24 0a 20 |%.... ..|.....$. |
|00003d40| d9 20 23 58 25 0d 1d 2e | 14 20 f2 66 72 6f 6e 74 |. #X%...|. .front|
|00003d50| 28 61 64 64 72 65 73 73 | 29 0d 1d 38 13 20 f2 73 |(address|)..8. .s|
|00003d60| 68 6f 77 72 65 63 6f 72 | 64 28 31 29 0d 1d 42 05 |howrecor|d(1)..B.|
|00003d70| e1 0d 1d 4c 04 0d 1d 56 | 14 dd 20 f2 66 72 6f 6e |...L...V|.. .fron|
|00003d80| 74 28 77 69 6e 64 6f 77 | 29 0d 1d 60 10 20 62 6b |t(window|)..`. bk|
|00003d90| 21 30 3d 77 69 6e 64 6f | 77 0d 1d 6a 22 20 c8 99 |!0=windo|w..j" ..|
|00003da0| 20 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 | "Wimp_G|etWindow|
|00003db0| 53 74 61 74 65 22 2c 30 | 2c 62 6b 0d 1d 74 0d 20 |State",0|,bk..t. |
|00003dc0| 62 6b 21 32 38 3d 2d 31 | 0d 1d 7e 1e 20 c8 99 20 |bk!28=-1|..~. .. |
|00003dd0| 22 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 |"Wimp_Op|enWindow|
|00003de0| 22 2c 30 2c 62 6b 0d 1d | 88 05 e1 0d 1d 92 04 0d |",0,bk..|........|
|00003df0| 1d 9c 0b dd 20 f2 73 6f | 72 74 0d 1d a6 42 20 ea |.... .so|rt...B .|
|00003e00| 20 6f 75 74 65 72 63 6f | 75 6e 74 2c 69 6e 6e 65 | outerco|unt,inne|
|00003e10| 72 63 6f 75 6e 74 2c 73 | 65 61 72 63 68 24 2c 73 |rcount,s|earch$,s|
|00003e20| 65 61 72 63 68 31 24 2c | 71 24 2c 71 31 24 2c 54 |earch1$,|q$,q1$,T|
|00003e30| 25 2c 63 6f 75 6e 74 2c | 69 24 2c 69 0d 1d b0 09 |%,count,|i$,i....|
|00003e40| 20 ea 20 46 25 0d 1d ba | 04 0d 1d c4 11 20 6f 75 | . F%...|..... ou|
|00003e50| 74 65 72 63 6f 75 6e 74 | 3d 31 0d 1d ce 11 20 69 |tercount|=1.... i|
|00003e60| 6e 6e 65 72 63 6f 75 6e | 74 3d 31 0d 1d d8 04 0d |nnercoun|t=1.....|
|00003e70| 1d e2 0d 20 f2 77 61 69 | 74 70 74 72 0d 1d ec 04 |... .wai|tptr....|
|00003e80| 0d 1d f6 06 20 f5 0d 1e | 00 0a 20 20 46 25 3d 31 |.... ...|.. F%=1|
|00003e90| 0d 1e 0a 36 20 20 c8 99 | 20 22 48 6f 75 72 67 6c |...6 ..| "Hourgl|
|00003ea0| 61 73 73 5f 50 65 72 63 | 65 6e 74 61 67 65 22 2c |ass_Perc|entage",|
|00003eb0| a8 28 6f 75 74 65 72 63 | 6f 75 6e 74 2f 6c 61 73 |.(outerc|ount/las|
|00003ec0| 74 2a 31 30 30 29 0d 1e | 14 07 20 20 f5 0d 1e 1e |t*100)..|.. ....|
|00003ed0| 11 20 20 20 73 65 61 72 | 63 68 24 3d 22 22 0d 1e |. sear|ch$=""..|
|00003ee0| 28 12 20 20 20 73 65 61 | 72 63 68 31 24 3d 22 22 |(. sea|rch1$=""|
|00003ef0| 0d 1e 32 04 0d 1e 3c 1e | 20 20 20 54 25 3d a9 28 |..2...<.| T%=.(|
|00003f00| 6e 61 6d 65 24 28 69 6e | 6e 65 72 63 6f 75 6e 74 |name$(in|nercount|
|00003f10| 29 29 0d 1e 46 08 20 20 | 20 f5 0d 1e 50 3b 20 20 |))..F. | ...P; |
|00003f20| 20 20 73 65 61 72 63 68 | 24 3d bd 28 97 28 c1 6e | search|$=.(.(.n|
|00003f30| 61 6d 65 24 28 69 6e 6e | 65 72 63 6f 75 6e 74 29 |ame$(inn|ercount)|
|00003f40| 2c 54 25 2c 31 29 29 20 | 84 20 33 32 29 2b 73 65 |,T%,1)) |. 32)+se|
|00003f50| 61 72 63 68 24 0d 1e 5a | 0d 20 20 20 20 54 25 2d |arch$..Z|. T%-|
|00003f60| 3d 31 0d 1e 64 2c 20 20 | 20 fd 20 c1 6e 61 6d 65 |=1..d, | . .name|
|00003f70| 24 28 69 6e 6e 65 72 63 | 6f 75 6e 74 29 2c 54 25 |$(innerc|ount),T%|
|00003f80| 2c 31 29 3d 22 20 22 20 | 84 20 54 25 3d 30 0d 1e |,1)=" " |. T%=0..|
|00003f90| 6e 04 0d 1e 78 20 20 20 | 20 54 25 3d a9 28 6e 61 |n...x | T%=.(na|
|00003fa0| 6d 65 24 28 69 6e 6e 65 | 72 63 6f 75 6e 74 2b 31 |me$(inne|rcount+1|
|00003fb0| 29 29 0d 1e 82 08 20 20 | 20 f5 0d 1e 8c 3f 20 20 |)).... | ....? |
|00003fc0| 20 20 73 65 61 72 63 68 | 31 24 3d bd 28 97 28 c1 | search|1$=.(.(.|
|00003fd0| 6e 61 6d 65 24 28 69 6e | 6e 65 72 63 6f 75 6e 74 |name$(in|nercount|
|00003fe0| 2b 31 29 2c 54 25 2c 31 | 29 29 20 84 20 33 32 29 |+1),T%,1|)) . 32)|
|00003ff0| 2b 73 65 61 72 63 68 31 | 24 0d 1e 96 0d 20 20 20 |+search1|$.... |
|00004000| 20 54 25 2d 3d 31 0d 1e | a0 2e 20 20 20 fd 20 c1 | T%-=1..|.. . .|
|00004010| 6e 61 6d 65 24 28 69 6e | 6e 65 72 63 6f 75 6e 74 |name$(in|nercount|
|00004020| 2b 31 29 2c 54 25 2c 31 | 29 3d 22 20 22 20 84 20 |+1),T%,1|)=" " . |
|00004030| 54 25 3d 30 0d 1e aa 04 | 0d 1e b4 1b 20 20 20 e7 |T%=0....|.... .|
|00004040| 20 73 65 61 72 63 68 24 | 3e 73 65 61 72 63 68 31 | search$|>search1|
|00004050| 24 20 8c 0d 1e be 30 20 | 20 20 20 c8 94 20 6e 61 |$ ....0 | .. na|
|00004060| 6d 65 24 28 69 6e 6e 65 | 72 63 6f 75 6e 74 29 2c |me$(inne|rcount),|
|00004070| 6e 61 6d 65 24 28 69 6e | 6e 65 72 63 6f 75 6e 74 |name$(in|nercount|
|00004080| 2b 31 29 0d 1e c8 32 20 | 20 20 20 c8 94 20 61 64 |+1)...2 | .. ad|
|00004090| 64 72 31 24 28 69 6e 6e | 65 72 63 6f 75 6e 74 29 |dr1$(inn|ercount)|
|000040a0| 2c 61 64 64 72 31 24 28 | 69 6e 6e 65 72 63 6f 75 |,addr1$(|innercou|
|000040b0| 6e 74 2b 31 29 0d 1e d2 | 32 20 20 20 20 c8 94 20 |nt+1)...|2 .. |
|000040c0| 61 64 64 72 32 24 28 69 | 6e 6e 65 72 63 6f 75 6e |addr2$(i|nnercoun|
|000040d0| 74 29 2c 61 64 64 72 32 | 24 28 69 6e 6e 65 72 63 |t),addr2|$(innerc|
|000040e0| 6f 75 6e 74 2b 31 29 0d | 1e dc 32 20 20 20 20 c8 |ount+1).|..2 .|
|000040f0| 94 20 61 64 64 72 33 24 | 28 69 6e 6e 65 72 63 6f |. addr3$|(innerco|
|00004100| 75 6e 74 29 2c 61 64 64 | 72 33 24 28 69 6e 6e 65 |unt),add|r3$(inne|
|00004110| 72 63 6f 75 6e 74 2b 31 | 29 0d 1e e6 32 20 20 20 |rcount+1|)...2 |
|00004120| 20 c8 94 20 61 64 64 72 | 34 24 28 69 6e 6e 65 72 | .. addr|4$(inner|
|00004130| 63 6f 75 6e 74 29 2c 61 | 64 64 72 34 24 28 69 6e |count),a|ddr4$(in|
|00004140| 6e 65 72 63 6f 75 6e 74 | 2b 31 29 0d 1e f0 30 20 |nercount|+1)...0 |
|00004150| 20 20 20 c8 94 20 70 6f | 73 74 24 28 69 6e 6e 65 | .. po|st$(inne|
|00004160| 72 63 6f 75 6e 74 29 2c | 70 6f 73 74 24 28 69 6e |rcount),|post$(in|
|00004170| 6e 65 72 63 6f 75 6e 74 | 2b 31 29 0d 1e fa 30 20 |nercount|+1)...0 |
|00004180| 20 20 20 c8 94 20 74 65 | 6c 65 24 28 69 6e 6e 65 | .. te|le$(inne|
|00004190| 72 63 6f 75 6e 74 29 2c | 74 65 6c 65 24 28 69 6e |rcount),|tele$(in|
|000041a0| 6e 65 72 63 6f 75 6e 74 | 2b 31 29 0d 1f 04 0c 20 |nercount|+1).... |
|000041b0| 20 20 20 46 25 3d 30 0d | 1f 0e 08 20 20 20 cc 0d | F%=0.|... ..|
|000041c0| 1f 18 1c 20 20 20 20 e7 | 20 73 65 61 72 63 68 24 |... .| search$|
|000041d0| 3d 73 65 61 72 63 68 31 | 24 20 8c 0d 1f 22 0e 20 |=search1|$ ...". |
|000041e0| 20 20 20 20 71 24 3d 22 | 22 0d 1f 2c 0f 20 20 20 | q$="|"..,. |
|000041f0| 20 20 71 31 24 3d 22 22 | 0d 1f 36 04 0d 1f 40 0d | q1$=""|..6...@.|
|00004200| 20 20 20 20 20 54 25 3d | 31 0d 1f 4a 0a 20 20 20 | T%=|1..J. |
|00004210| 20 20 f5 0d 1f 54 33 20 | 20 20 20 20 20 71 24 3d | ...T3 | q$=|
|00004220| 71 24 2b bd 28 97 28 c1 | 6e 61 6d 65 24 28 69 6e |q$+.(.(.|name$(in|
|00004230| 6e 65 72 63 6f 75 6e 74 | 29 2c 54 25 2c 31 29 29 |nercount|),T%,1))|
|00004240| 20 84 20 33 32 29 0d 1f | 5e 0f 20 20 20 20 20 20 | . 32)..|^. |
|00004250| 54 25 2b 3d 31 0d 1f 68 | 41 20 20 20 20 20 fd 20 |T%+=1..h|A . |
|00004260| c1 6e 61 6d 65 24 28 69 | 6e 6e 65 72 63 6f 75 6e |.name$(i|nnercoun|
|00004270| 74 29 2c 54 25 2c 31 29 | 3d 22 20 22 20 84 20 54 |t),T%,1)|=" " . T|
|00004280| 25 3d a9 28 6e 61 6d 65 | 24 28 69 6e 6e 65 72 63 |%=.(name|$(innerc|
|00004290| 6f 75 6e 74 29 29 0d 1f | 72 04 0d 1f 7c 0d 20 20 |ount))..|r...|. |
|000042a0| 20 20 20 54 25 3d 31 0d | 1f 86 0a 20 20 20 20 20 | T%=1.|... |
|000042b0| f5 0d 1f 90 37 20 20 20 | 20 20 20 71 31 24 3d 71 |....7 | q1$=q|
|000042c0| 31 24 2b bd 28 97 28 c1 | 6e 61 6d 65 24 28 69 6e |1$+.(.(.|name$(in|
|000042d0| 6e 65 72 63 6f 75 6e 74 | 2b 31 29 2c 54 25 2c 31 |nercount|+1),T%,1|
|000042e0| 29 29 20 84 20 33 32 29 | 0d 1f 9a 0f 20 20 20 20 |)) . 32)|.... |
|000042f0| 20 20 54 25 2b 3d 31 0d | 1f a4 45 20 20 20 20 20 | T%+=1.|..E |
|00004300| fd 20 c1 6e 61 6d 65 24 | 28 69 6e 6e 65 72 63 6f |. .name$|(innerco|
|00004310| 75 6e 74 2b 31 29 2c 54 | 25 2c 31 29 3d 22 20 22 |unt+1),T|%,1)=" "|
|00004320| 20 84 20 54 25 3d a9 28 | 6e 61 6d 65 24 28 69 6e | . T%=.(|name$(in|
|00004330| 6e 65 72 63 6f 75 6e 74 | 2b 31 29 29 0d 1f ae 04 |nercount|+1))....|
|00004340| 0d 1f b8 13 20 20 20 20 | 20 e7 20 71 24 3e 71 31 |.... | . q$>q1|
|00004350| 24 20 8c 0d 1f c2 32 20 | 20 20 20 20 20 c8 94 20 |$ ....2 | .. |
|00004360| 6e 61 6d 65 24 28 69 6e | 6e 65 72 63 6f 75 6e 74 |name$(in|nercount|
|00004370| 29 2c 6e 61 6d 65 24 28 | 69 6e 6e 65 72 63 6f 75 |),name$(|innercou|
|00004380| 6e 74 2b 31 29 0d 1f cc | 34 20 20 20 20 20 20 c8 |nt+1)...|4 .|
|00004390| 94 20 61 64 64 72 31 24 | 28 69 6e 6e 65 72 63 6f |. addr1$|(innerco|
|000043a0| 75 6e 74 29 2c 61 64 64 | 72 31 24 28 69 6e 6e 65 |unt),add|r1$(inne|
|000043b0| 72 63 6f 75 6e 74 2b 31 | 29 0d 1f d6 34 20 20 20 |rcount+1|)...4 |
|000043c0| 20 20 20 c8 94 20 61 64 | 64 72 32 24 28 69 6e 6e | .. ad|dr2$(inn|
|000043d0| 65 72 63 6f 75 6e 74 29 | 2c 61 64 64 72 32 24 28 |ercount)|,addr2$(|
|000043e0| 69 6e 6e 65 72 63 6f 75 | 6e 74 2b 31 29 0d 1f e0 |innercou|nt+1)...|
|000043f0| 34 20 20 20 20 20 20 c8 | 94 20 61 64 64 72 33 24 |4 .|. addr3$|
|00004400| 28 69 6e 6e 65 72 63 6f | 75 6e 74 29 2c 61 64 64 |(innerco|unt),add|
|00004410| 72 33 24 28 69 6e 6e 65 | 72 63 6f 75 6e 74 2b 31 |r3$(inne|rcount+1|
|00004420| 29 0d 1f ea 34 20 20 20 | 20 20 20 c8 94 20 61 64 |)...4 | .. ad|
|00004430| 64 72 34 24 28 69 6e 6e | 65 72 63 6f 75 6e 74 29 |dr4$(inn|ercount)|
|00004440| 2c 61 64 64 72 34 24 28 | 69 6e 6e 65 72 63 6f 75 |,addr4$(|innercou|
|00004450| 6e 74 2b 31 29 0d 1f f4 | 32 20 20 20 20 20 20 c8 |nt+1)...|2 .|
|00004460| 94 20 70 6f 73 74 24 28 | 69 6e 6e 65 72 63 6f 75 |. post$(|innercou|
|00004470| 6e 74 29 2c 70 6f 73 74 | 24 28 69 6e 6e 65 72 63 |nt),post|$(innerc|
|00004480| 6f 75 6e 74 2b 31 29 0d | 1f fe 32 20 20 20 20 20 |ount+1).|..2 |
|00004490| 20 c8 94 20 74 65 6c 65 | 24 28 69 6e 6e 65 72 63 | .. tele|$(innerc|
|000044a0| 6f 75 6e 74 29 2c 74 65 | 6c 65 24 28 69 6e 6e 65 |ount),te|le$(inne|
|000044b0| 72 63 6f 75 6e 74 2b 31 | 29 0d 20 08 0e 20 20 20 |rcount+1|). .. |
|000044c0| 20 20 20 46 25 3d 30 0d | 20 12 04 0d 20 1c 0a 20 | F%=0.| ... .. |
|000044d0| 20 20 20 20 cd 0d 20 26 | 09 20 20 20 20 cd 0d 20 | .. &|. .. |
|000044e0| 30 08 20 20 20 cd 0d 20 | 3a 14 20 20 20 69 6e 6e |0. .. |:. inn|
|000044f0| 65 72 63 6f 75 6e 74 2b | 3d 31 0d 20 44 17 20 20 |ercount+|=1. D. |
|00004500| fd 20 69 6e 6e 65 72 63 | 6f 75 6e 74 3d 6c 61 73 |. innerc|ount=las|
|00004510| 74 0d 20 4e 12 20 20 69 | 6e 6e 65 72 63 6f 75 6e |t. N. i|nnercoun|
|00004520| 74 3d 31 0d 20 58 13 20 | 20 6f 75 74 65 72 63 6f |t=1. X. | outerco|
|00004530| 75 6e 74 2b 3d 31 0d 20 | 62 1d 20 fd 20 6f 75 74 |unt+=1. |b. . out|
|00004540| 65 72 63 6f 75 6e 74 3d | 6c 61 73 74 20 84 20 46 |ercount=|last . F|
|00004550| 25 3d 31 0d 20 6c 04 0d | 20 76 04 0d 20 80 25 20 |%=1. l..| v.. .% |
|00004560| f4 20 63 6f 6e 76 65 72 | 74 20 70 6f 73 74 63 6f |. conver|t postco|
|00004570| 64 65 20 74 6f 20 75 70 | 70 65 72 20 63 61 73 65 |de to up|per case|
|00004580| 0d 20 8a 04 0d 20 94 15 | 20 e3 20 63 6f 75 6e 74 |. ... ..| . count|
|00004590| 3d 31 20 b8 20 6c 61 73 | 74 0d 20 9e 15 20 20 71 |=1 . las|t. .. q|
|000045a0| 24 3d 70 6f 73 74 24 28 | 63 6f 75 6e 74 29 0d 20 |$=post$(|count). |
|000045b0| a8 0c 20 20 71 31 24 3d | 22 22 0d 20 b2 12 20 20 |.. q1$=|"". .. |
|000045c0| e3 20 54 25 3d 31 20 b8 | 20 a9 71 24 0d 20 bc 1b |. T%=1 .| .q$. ..|
|000045d0| 20 20 20 69 24 3d c1 71 | 24 2c 54 25 2c 31 29 3a | i$=.q|$,T%,1):|
|000045e0| 69 3d 97 28 69 24 29 0d | 20 c6 17 20 20 20 e7 20 |i=.(i$).| .. . |
|000045f0| 69 3e 39 36 20 80 20 69 | 3c 31 32 33 20 8c 0d 20 |i>96 . i|<123 .. |
|00004600| d0 1a 20 20 20 20 71 31 | 24 3d 71 31 24 2b bd 28 |.. q1|$=q1$+.(|
|00004610| 69 20 80 20 26 44 46 29 | 0d 20 da 08 20 20 20 cc |i . &DF)|. .. .|
|00004620| 0d 20 e4 12 20 20 20 20 | 71 31 24 3d 71 31 24 2b |. .. |q1$=q1$+|
|00004630| 69 24 0d 20 ee 08 20 20 | 20 cd 0d 20 f8 07 20 20 |i$. .. | .. .. |
|00004640| ed 0d 21 02 16 20 20 70 | 6f 73 74 24 28 63 6f 75 |..!.. p|ost$(cou|
|00004650| 6e 74 29 3d 71 31 24 0d | 21 0c 06 20 ed 0d 21 16 |nt)=q1$.|!.. ..!.|
|00004660| 04 0d 21 20 04 0d 21 2a | 04 0d 21 34 2d 20 f4 20 |..! ..!*|..!4- . |
|00004670| 77 6f 72 6b 20 6f 75 74 | 20 6c 6f 6f 6b 20 75 70 |work out| look up|
|00004680| 74 61 62 6c 65 20 66 6f | 72 20 71 75 69 63 6b 20 |table fo|r quick |
|00004690| 73 65 61 72 63 68 0d 21 | 3e 04 0d 21 48 08 20 69 |search.!|>..!H. i|
|000046a0| 3d 31 0d 21 52 18 20 e3 | 20 63 6f 75 6e 74 3d 97 |=1.!R. .| count=.|
|000046b0| 22 61 22 20 b8 20 97 22 | 7a 22 0d 21 5c 31 20 20 |"a" . ."|z".!\1 |
|000046c0| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 50 65 |.. "Hour|glass_Pe|
|000046d0| 72 63 65 6e 74 61 67 65 | 22 2c a8 28 63 6f 75 6e |rcentage|",.(coun|
|000046e0| 74 2f 97 22 7a 22 2a 31 | 30 30 29 0d 21 66 2b 20 |t/."z"*1|00).!f+ |
|000046f0| 20 73 74 61 72 74 28 63 | 6f 75 6e 74 2d 39 36 29 | start(c|ount-96)|
|00004700| 3d a4 72 65 74 75 72 6e | 73 74 61 72 74 28 63 6f |=.return|start(co|
|00004710| 75 6e 74 2c 69 29 0d 21 | 70 2c 20 20 e7 20 73 74 |unt,i).!|p, . st|
|00004720| 61 72 74 28 63 6f 75 6e | 74 2d 39 36 29 3c 3e 30 |art(coun|t-96)<>0|
|00004730| 20 69 3d 73 74 61 72 74 | 28 63 6f 75 6e 74 2d 39 | i=start|(count-9|
|00004740| 36 29 0d 21 7a 06 20 ed | 0d 21 84 04 0d 21 8e 0e |6).!z. .|.!...!..|
|00004750| 20 f2 61 72 72 6f 77 70 | 74 72 0d 21 98 05 e1 0d | .arrowp|tr.!....|
|00004760| 21 a2 04 0d 21 ac 1f dd | 20 a4 72 65 74 75 72 6e |!...!...| .return|
|00004770| 73 74 61 72 74 28 61 73 | 63 69 69 2c 73 74 61 72 |start(as|cii,star|
|00004780| 74 29 0d 21 b6 17 20 ea | 20 73 65 61 72 63 68 24 |t).!.. .| search$|
|00004790| 2c 63 6f 75 6e 74 2c 54 | 25 0d 21 c0 04 0d 21 ca |,count,T|%.!...!.|
|000047a0| 19 20 e3 20 63 6f 75 6e | 74 3d 73 74 61 72 74 20 |. . coun|t=start |
|000047b0| b8 20 6c 61 73 74 0d 21 | d4 04 0d 21 de 18 20 20 |. last.!|...!.. |
|000047c0| 54 25 3d a9 28 6e 61 6d | 65 24 28 63 6f 75 6e 74 |T%=.(nam|e$(count|
|000047d0| 29 29 0d 21 e8 10 20 20 | 73 65 61 72 63 68 24 3d |)).!.. |search$=|
|000047e0| 22 22 0d 21 f2 04 0d 21 | fc 07 20 20 f5 0d 22 06 |"".!...!|.. ..".|
|000047f0| 2a 20 20 20 73 65 61 72 | 63 68 24 3d c1 6e 61 6d |* sear|ch$=.nam|
|00004800| 65 24 28 63 6f 75 6e 74 | 29 2c 54 25 2c 31 29 2b |e$(count|),T%,1)+|
|00004810| 73 65 61 72 63 68 24 0d | 22 10 0c 20 20 20 54 25 |search$.|".. T%|
|00004820| 2d 3d 31 0d 22 1a 26 20 | 20 fd 20 c1 6e 61 6d 65 |-=1.".& | . .name|
|00004830| 24 28 63 6f 75 6e 74 29 | 2c 54 25 2c 31 29 3d 22 |$(count)|,T%,1)="|
|00004840| 20 22 20 84 20 54 25 3d | 30 0d 22 24 04 0d 22 2e | " . T%=|0."$..".|
|00004850| 25 20 20 e7 20 28 97 28 | c0 73 65 61 72 63 68 24 |% . (.(|.search$|
|00004860| 2c 31 29 29 20 84 20 33 | 32 29 3d 61 73 63 69 69 |,1)) . 3|2)=ascii|
|00004870| 20 8c 0d 22 38 0d 20 20 | 20 3d 63 6f 75 6e 74 0d | .."8. | =count.|
|00004880| 22 42 07 20 20 cd 0d 22 | 4c 06 20 ed 0d 22 56 06 |"B. .."|L. .."V.|
|00004890| 3d 30 0d 22 60 04 0d 22 | 6a 12 dd 20 f2 63 6f 6e |=0."`.."|j.. .con|
|000048a0| 76 65 72 74 28 69 64 29 | 0d 22 74 07 20 ef 37 0d |vert(id)|."t. .7.|
|000048b0| 22 7e 18 20 ea 20 74 24 | 2c 71 24 2c 71 31 24 2c |"~. . t$|,q$,q1$,|
|000048c0| 71 32 24 2c 71 33 24 0d | 22 88 14 20 74 24 20 20 |q2$,q3$.|".. t$ |
|000048d0| 3d 20 6e 61 6d 65 24 28 | 69 64 29 0d 22 92 1a 20 |= name$(|id).".. |
|000048e0| 71 24 20 20 3d 20 c0 74 | 24 2c a7 74 24 2c 22 20 |q$ = .t|$,.t$," |
|000048f0| 22 29 2d 31 29 0d 22 9c | 1a 20 71 31 24 20 3d 20 |")-1).".|. q1$ = |
|00004900| c1 74 24 2c a7 74 24 2c | 22 20 22 29 2b 31 29 0d |.t$,.t$,|" ")+1).|
|00004910| 22 a6 24 20 71 32 24 20 | 3d 20 bd 28 97 28 c0 71 |".$ q2$ |= .(.(.q|
|00004920| 24 2c 31 29 29 20 80 20 | 26 44 46 29 2b c1 71 24 |$,1)) . |&DF)+.q$|
|00004930| 2c 32 29 0d 22 b0 26 20 | 71 33 24 20 3d 20 bd 28 |,2).".& |q3$ = .(|
|00004940| 97 28 c0 71 31 24 2c 31 | 29 29 20 80 20 26 44 46 |.(.q1$,1|)) . &DF|
|00004950| 29 2b c1 71 31 24 2c 32 | 29 0d 22 ba 1a 20 6e 61 |)+.q1$,2|).".. na|
|00004960| 6d 65 24 28 69 64 29 3d | 71 32 24 2b 22 20 22 2b |me$(id)=|q2$+" "+|
|00004970| 71 33 24 0d 22 c4 15 20 | f2 73 68 6f 77 72 65 63 |q3$.".. |.showrec|
|00004980| 6f 72 64 28 70 74 72 29 | 0d 22 ce 05 e1 0d 22 d8 |ord(ptr)|."....".|
|00004990| 04 0d 22 e2 0c dd 20 f2 | 70 72 69 6e 74 0d 22 ec |.."... .|print.".|
|000049a0| 2d ea 20 6e 61 6d 65 24 | 2c 61 64 64 72 31 24 2c |-. name$|,addr1$,|
|000049b0| 61 64 64 72 32 24 2c 61 | 64 64 72 33 24 2c 61 64 |addr2$,a|ddr3$,ad|
|000049c0| 64 72 34 24 2c 70 6f 73 | 74 24 0d 22 f6 1e 6e 61 |dr4$,pos|t$."..na|
|000049d0| 6d 65 24 3d a4 69 6e 64 | 69 72 65 63 74 28 61 64 |me$=.ind|irect(ad|
|000049e0| 64 72 65 73 73 2c 35 29 | 0d 23 00 1f 61 64 64 72 |dress,5)|.#..addr|
|000049f0| 31 24 3d a4 69 6e 64 69 | 72 65 63 74 28 61 64 64 |1$=.indi|rect(add|
|00004a00| 72 65 73 73 2c 36 29 0d | 23 0a 1f 61 64 64 72 32 |ress,6).|#..addr2|
|00004a10| 24 3d a4 69 6e 64 69 72 | 65 63 74 28 61 64 64 72 |$=.indir|ect(addr|
|00004a20| 65 73 73 2c 37 29 0d 23 | 14 1f 61 64 64 72 33 24 |ess,7).#|..addr3$|
|00004a30| 3d a4 69 6e 64 69 72 65 | 63 74 28 61 64 64 72 65 |=.indire|ct(addre|
|00004a40| 73 73 2c 38 29 0d 23 1e | 1f 61 64 64 72 34 24 3d |ss,8).#.|.addr4$=|
|00004a50| a4 69 6e 64 69 72 65 63 | 74 28 61 64 64 72 65 73 |.indirec|t(addres|
|00004a60| 73 2c 39 29 0d 23 28 1f | 70 6f 73 74 24 3d a4 69 |s,9).#(.|post$=.i|
|00004a70| 6e 64 69 72 65 63 74 28 | 61 64 64 72 65 73 73 2c |ndirect(|address,|
|00004a80| 31 30 29 0d 23 32 04 0d | 23 3c 08 20 ef 20 32 0d |10).#2..|#<. . 2.|
|00004a90| 23 46 0c 20 f1 20 6e 61 | 6d 65 24 0d 23 50 0d 20 |#F. . na|me$.#P. |
|00004aa0| f1 20 61 64 64 72 31 24 | 0d 23 5a 0d 20 f1 20 61 |. addr1$|.#Z. . a|
|00004ab0| 64 64 72 32 24 0d 23 64 | 0d 20 f1 20 61 64 64 72 |ddr2$.#d|. . addr|
|00004ac0| 33 24 0d 23 6e 0d 20 f1 | 20 61 64 64 72 34 24 0d |3$.#n. .| addr4$.|
|00004ad0| 23 78 0c 20 f1 20 70 6f | 73 74 24 0d 23 82 09 20 |#x. . po|st$.#.. |
|00004ae0| f1 20 27 27 0d 23 8c 08 | 20 ef 20 33 0d 23 96 05 |. ''.#..| . 3.#..|
|00004af0| e1 0d ff | |... | |
+--------+-------------------------+-------------------------+--------+--------+
